asp.net - 包含 3 个按钮的 vb.net 单选按钮列表在选择时未触发索引在一种情况下从索引 2 更改为 0

Question

我的代码使用 sqldataadapter 和数据集填充 DataGrid 控件（vb.net 3.5 框架），并通过从其他控件组合中进行的选择进行过滤。一切正常，除了 RadioButtonList1 在一种情况下有 3 个 rbtns：

当先前选择 rbtn 3 @ index 2 并且正确返回 NO DATA 之后选择单选按钮 1 @ index 0 时，就会出现问题。
当先前选择了 rbtn 3 @ index 2 并且它正确返回了一些数据时，不会发生这种情况。单选按钮列表选择的所有其他组合行为正确

我尝试过使用不同的 sqldataadapter 填充数据网格 - 请参阅代码，包括使用存储过程（但如果我这样做，我无法自定义排序）。似乎没有什么能改变这种奇怪的行为。

如果没有人可以帮助我看到光明，我可能不得不求助于将单选按钮 1 更改为复选框控件并使用单独的绑定方法。谁能看到我遗漏的任何明显的东西？

ASPX（为简洁起见，datagrid 仅显示 2 列）

<asp:radiobuttonlist   id="RadioButtonList1" runat="server" AutoPostBack="True" 
                            Font-Names="Arial" 
                            Font-Size="X-Small"   
                            BorderColor="Black" 
                            ForeColor="Black" 
                            RepeatDirection="Vertical" 
                            TextAlign="Right" CssClass="radioWithProperWrap" RepeatColumns="1"> 
                        <asp:ListItem Value="0" >All Projects</asp:ListItem> 
                        <asp:ListItem Value="1" Selected="True" >Sort By Project#</asp:ListItem> 
                        <asp:ListItem Value="2">Sort By Project Name</asp:ListItem>
</asp:radiobuttonlist>

<!--------------------
DataGrid1 
-------------------->            
<asp:datagrid  id="DataGrid1" runat="server"
                Font-Names="Tahoma,Sans Serif,arial" 
                Font-Size="Small" 
                ShowFooter="True" 
                DataMember="vwPersonSummary" 
                AllowSorting="True"
                OnPageIndexChanged="DataGrid1_Paging" Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False" Font-Underline="False" 
         UseAccessibleHeader="True" AutoGenerateColumns="False" 
         CssClass="nowrap" AllowPaging="True" PageSize="110" Visible="False"   >

                <FooterStyle HorizontalAlign="Right" Font-Bold="True" Font-Italic="False" 
                    Font-Overline="False" Font-Strikeout="False" Font-Underline="False"></FooterStyle>
                <SelectedItemStyle HorizontalAlign="Left" />
                <PagerStyle HorizontalAlign="Left" Mode="NumericPages" 
                    Position="TopAndBottom" PageButtonCount="75" />
                <AlternatingItemStyle BackColor="#EBF5FF"></AlternatingItemStyle>
                <headerStyle Font-Bold="True" Font-Italic="False" Font-Overline="False" 
                    Font-Size="Small" Font-Strikeout="False" Font-Underline="False" 
                    Width="12em" BackColor="#333333" ForeColor="White"  ></headerStyle>

                <ItemStyle Font-Size="Smaller" Width="12em" />

<Columns>

<asp:TemplateColumn HeaderText="Line#" FooterText="Line#">
                        <FooterStyle Font-Bold="True" Font-Italic="False" Font-Overline="False" Font-Strikeout="False" Font-Underline="False" HorizontalAlign="Center" 
                            Font-Names="Tahoma" Font-Size="Small" ForeColor="Black"  />
<headerStyle HorizontalAlign="Center" Font-Bold="True" Font-Italic="False" 
                            Font-Names="Tahoma" Font-Overline="False" Font-Size="Small" 
                            Font-Strikeout="False" Font-Underline="False" ForeColor="White"></headerStyle>
<ItemStyle HorizontalAlign="Left"></ItemStyle>
<ItemTemplate>
<%#(DataGrid1.PageSize * DataGrid1.CurrentPageIndex) + Container.ItemIndex + 1%> <!--generate row numbers-->
</ItemTemplate>
</asp:TemplateColumn>

<asp:BoundColumn DataField="Person" SortExpression="Employee" HeaderText="Person" >
  <FooterStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" 
Font-Strikeout="False" Font-Underline="False" Wrap="False" />
  <headerStyle HorizontalAlign="Center" Font-Bold="True" Font-Italic="False" 
                            Font-Overline="False" Font-Size="Small" Font-Strikeout="False" 
                            Font-Underline="False" Wrap="False" Font-Names="Tahoma" 
                            ForeColor="White"  > </headerStyle>
  <ItemStyle   Font-Bold="False" Font-Italic="False" 
                            Font-Overline="False" Font-Strikeout="False" Font-Underline="False" 
                            HorizontalAlign="Left" Wrap="False"></ItemStyle>
</asp:BoundColumn>

<asp:BoundColumn DataField="Project#" SortExpression="Project#" HeaderText="Proj#">
  <FooterStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" 
Font-Strikeout="False" Font-Underline="False" Wrap="False" />
  <headerStyle HorizontalAlign="Center" Font-Bold="True" 
Font-Italic="False" Font-Overline="False" Font-Strikeout="False" 
Font-Underline="False" Wrap="False" Font-Names="Tahoma" Font-Size="Small" 
ForeColor="White"  ></headerStyle>
  <ItemStyle Font-Bold="False" Font-Italic="False" Font-Overline="False" 
                            Font-Strikeout="False" Font-Underline="False" HorizontalAlign="Left" 
                            Wrap="False" />
</asp:BoundColumn>
</Columns>              
</asp:datagrid>

ASPX.VB（仅相关代码）

  Sub BindData(ByVal strSortField As String)

        ''clear grid
        DataGrid1.DataSource = Nothing 'original

        ' TimeCodesSelected variable is populated based on Checkbox selections here. 
 ' Code removed for brevity.   

        Try
            ' Selected project 
            Dim ProjectSelected As String = Left(ddwnProjList.SelectedItem.Text, 7) 'Project#

            ' convert string dates to DateTime data types
            PPBegDate = Convert.ToDateTime(txtBegDate.Text)
            PPEndDate = Convert.ToDateTime(txtEndDate.Text)

            ' Check which radio button is selected 
            If RadioButtonList1.SelectedValue = 0 Then '0 = All projects

                ProjectSelected = String.Empty

'inline sql used to provide sort parameters to allow retaining sort order when paging through grid. sqlQuery is a global variable
                sqlQuery = "SELECT Person, Project# WHERE dtmDate BETWEEN '" & PPBegDate & "' AND '" & PPEndDate & "' " & TimeCodesSelected & " ORDER BY " & ViewState("sortField").ToString() & " " & ViewState("sortDirection").ToString()


                ''1=by number, or 2=by name
            Else
                sqlQuery = "SELECT Person, Project#, WHERE Project#='" & ProjectSelected & "' AND dtmDate BETWEEN '" & PPBegDate & "' AND '" & PPEndDate & "' " & TimeCodesSelected & " ORDER BY " & ViewState("sortField").ToString() & " " & ViewState("sortDirection").ToString()

                'Verify selected project exists, if not hide grid
                Dim blnRecordExists As Boolean

                Dim oRecord As DataAccessLib.SqlConn = New DataAccessLib.SqlConn()
                blnRecordExists = oRecord.VerifyProjectExists(ProjectSelected, PPBegDate, PPEndDate)

                If (blnRecordExists = True) Then
                    DataGrid1.Visible = True
                    lblErrorMsg.Text = Nothing
                Else
                    DataGrid1.Visible = False
                    lblErrorMsg.Text = "No records found for this project number during selected dates."
                End If
            End If

            Using conn As SqlConnection = New SqlConnection(conStr)
                Using cmd As New SqlCommand(sqlQuery, conn)
                    cmd.CommandType = CommandType.Text
                    Using sda As New SqlDataAdapter(cmd)
                        Using ds As New DataSet()
                            sda.Fill(ds)
                            DataGrid1.DataSource = ds.Tables(0)
                        End Using
                    End Using
                End Using

''Orignal code that works as well and also has the switch from index 2 to index 0 issue 
'SqlDataAdapter1.Fill(DsDetailByProj1, "vwPersonSummary") 
'Dim objDataView As DataView = DsDetailByProj1.Tables("vwPersonSummary").DefaultView
'DataGrid1.DataSource = objDataView
                DataGrid1.DataBind()

            End Using 'end using closes conn and goes before 'Catch' 

        Catch ex As SqlException
            sqlErrorMsg = sqlErrorMsg + ": " + ex.Message.ToString
            lblErrorMsg.Visible = True
            lblErrorMsg.Text = sqlErrorMsg

        Catch e As Exception
            'reset grid to 1st page after grid refresh (databind)
            DataGrid1.CurrentPageIndex = 0


        Finally 'the using statement closes objects.  Kept here for reference only.
            ''close and dispose of database connection
            'SqlConnection1.Close()
            'SqlConnection1.Dispose()

            ''close sqldatadapter if applicable  
            'SqlDataAdapter1.Dispose()
        End Try

    End Sub
Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButtonList1.SelectedIndexChanged

        If RadioButtonList1.SelectedValue = 0 Then
            ddwnProjList.Enabled = False 

        Else 'if 1 or 2
            ddwnProjList.Enabled = True

        End If

        GetProjectList()'fills ddwnProjList by Project Number or Project Name

        BindData("dtmDate")  

    End Sub
Private Sub ddwnProjList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddwnProjList.SelectedIndexChanged

        If (ViewState("sortField") <> Nothing) Then
            BindData(ViewState("sortField").ToString())
        Else
            BindData("dtmDate")
        End If

    End Sub

enter code here

score 0 · Accepted Answer

正如我在评论中提到的，将 DataGrid 的可见性属性设置为 true 是解决此问题的第一步。

然后我在这里使用 Scott Mitchell 的答案来验证网格是否为空。通过消除对数据库的另一次往返的需要，这似乎比我这样做的方式更有效。

       If (DataGrid1.Items.Count = 0) Then
            lblNoRecordsMessage.Text = "Yo Adrian, there are no records for the selected dates."
            lblNoRecordsMessage.Visible = True
            DataGrid1.Visible = False
        Else
            lblNoRecordsMessage.Text = Nothing
            lblNoRecordsMessage.Visible = False
            DataGrid1.Visible = True
        End If

我还确保在 DataBind() 方法的开头将 DataGrid 和 Label 设置为可见，因为在最后一次数据绑定之后它可能会处于不可见状态。

        lblNoRecordsMessage.Text = Nothing
        lblNoRecordsMessage.Visible = False
        DataGrid1.Visible = True

asp.net - 包含 3 个按钮的 vb.net 单选按钮列表在选择时未触发索引在一种情况下从索引 2 更改为 0

1 回答 1

Related

Reference