2

我有一个包含问题和一堆动态创建的单选按钮列表的表格，我正在尝试编写代码，该代码将遍历每个单选按钮列表并获取所选问题值和相应问题 id 的值。我有以下代码返回选定的单选按钮列表值。我将如何获取问题 ID 以及它们的选定值？

For Each ctrl As Control In form1.Controls
   If TypeOf ctrl Is RadioButtonList Then
      Dim rbl As RadioButtonList = DirectCast(ctrl, RadioButtonList)
      For i As Integer = 0 To rbl.Items.Count - 1
         If rbl.Items(i).Selected Then
            Dim value As String = rbl.SelectedValue
         End If
       Next
    End If
 Next
4

1 回答 1

1

创建单选按钮时，您应该将它们放入字典中（确保在Init阶段中这样做）。String假设密钥保存问题 id ：

Dim radios As New Dictionary(Of String, RadioButtonList)
Dim table As DataTable

Sub Page_Init(sender As Object, e As EventArgs)
    table = ...
    For Each row As DataRow In table.Rows
        Dim rbl As New RadioButtonList
        ' add radio buttons to rbl
        radios.Add(row("id").ToString, rbl)
    Next
End Sub

然后在用于检索答案的事件处理程序中，您可以轻松访问它们：

Sub MyHandler(sender As Object, e As EventArgs)
    For Each row As DataRow In table.Rows
        Dim value As String = GetAnswer(row("id").ToString)
        ' do something with the answer ...
    Next
End Sub

Function GetAnswer(id As String) As String
    For Each item In radios(id)
        If item.Selected Then Return item.SelectedValue
    Next
    Return Nothing
End Function
于 2013-07-23T07:16:31.260 回答