如何从SQL Server动态填充RadioButtonList并设置选中状态？

问题场景 #

我们有一个包含Yes/No选项的RadioButtonList，需要从数据库动态设置选中状态：数据库对应字段IsVetoVote为Bit类型，1对应Yes选项，0对应No选项。目前SSMS执行查询能返回正确的1或0，但RadioButtonList始终无法正确选中对应选项。

现有代码 #

前端RadioButtonList #

<asp:RadioButtonList ID ="VetoVote" RepeatDirection="Horizontal" runat="server">
    <asp:ListItem Value="Yes"></asp:ListItem>
    <asp:ListItem Value="No"></asp:ListItem>
</asp:RadioButtonList>    

后端加载数据代码 #

Sub LoadData()
    Dim strSQL As String = "Select IsVetoVote from Ballots where choices Like '%' + @vetono + '%'"
    Dim cmdSQL As New SqlCommand(strSQL)
    With cmdSQL.Parameters
        .Add(New SqlParameter("@vetono", SqlDbType.NVarChar).Value = address.Replace("'", "''").Trim())
    End With

    Dim rstData As DataTable = MyrstP(cmdSQL)

    With rstData.Rows(0)
        ' 原逻辑：尝试用Not操作转换Bit值来设置选中索引，但存在类型转换问题
        VetoVote.SelectedIndex = Not (.Item("IsVetoVote"))    ' sql returns 1 for true, 0 for false
    End With
End Sub

Public Function MyrstP(cmdSQL As SqlCommand) As DataTable
    Dim rstData As New DataTable
    Using mycon As New SqlConnection(conString)
        Using (cmdSQL)
            cmdSQL.Connection = mycon
            mycon.Open()
            rstData.Load(cmdSQL.ExecuteReader)
        End Using
    End Using
    Return rstData
End Function      

问题原因及修复方案 #

1. 参数添加逻辑错误 #

原代码中Add方法内直接赋值Value的写法不正确，会导致参数没有正确绑定到命令对象上。需拆分参数创建和赋值步骤：

With cmdSQL.Parameters
    Dim param As New SqlParameter("@vetono", SqlDbType.NVarChar)
    param.Value = address.Replace("'", "''").Trim()
    .Add(param)
End With

2. RadioButtonList选中逻辑错误 #

VB中对Bit类型（本质是布尔值）使用Not操作，会返回布尔值，直接赋值给SelectedIndex（整数类型）会导致类型转换异常或逻辑颠倒：

• 当IsVetoVote为1（True），Not True是False，转换为整数是0，符合预期（选中Yes，索引0）；
• 当IsVetoVote为0（False），Not False是True，转换为整数是-1，导致无选项被选中（索引-1无效）。

修复方式一：修正SelectedIndex逻辑

将布尔值转换为整数后再计算索引：

With rstData.Rows(0)
    Dim isVeto As Boolean = Convert.ToBoolean(.Item("IsVetoVote"))
    ' 1(True) → 选中索引0(Yes)，0(False) → 选中索引1(No)
    VetoVote.SelectedIndex = If(isVeto, 0, 1)
End With

修复方式二：使用SelectedValue（更可靠）

直接通过选项的Value值匹配选中，无需依赖索引顺序：

With rstData.Rows(0)
    Dim isVeto As Boolean = Convert.ToBoolean(.Item("IsVetoVote"))
    VetoVote.SelectedValue = If(isVeto, "Yes", "No")
End With

完整修复后的LoadData方法 #

Sub LoadData()
    Dim strSQL As String = "Select IsVetoVote from Ballots where choices Like '%' + @vetono + '%'"
    Dim cmdSQL As New SqlCommand(strSQL)
    
    ' 修复参数添加逻辑
    With cmdSQL.Parameters
        Dim param As New SqlParameter("@vetono", SqlDbType.NVarChar)
        param.Value = address.Replace("'", "''").Trim()
        .Add(param)
    End With

    Dim rstData As DataTable = MyrstP(cmdSQL)

    If rstData.Rows.Count > 0 Then
        With rstData.Rows(0)
            Dim isVeto As Boolean = Convert.ToBoolean(.Item("IsVetoVote"))
            ' 使用SelectedValue方式设置选中状态
            VetoVote.SelectedValue = If(isVeto, "Yes", "No")
        End With
    End If
End Sub

内容的提问来源于stack exchange，提问作者Tairoc