在 RadioButtonList/RadioButtonList 上动态添加条目不可见
Dynamically adding entries on RadioButtonList/ RadioButtonList not visible
我试图在 RadioButtonList 上动态添加条目(不是从数据库)。到目前为止,我有以下代码 [markup and .vb] 但是动态添加的 ListItems 没有显示在屏幕上。
当我在标记中添加一些 ListItems 时,它们显示正确,但我想以完全动态的方式添加它们,因为我不知道在执行之前需要多少条目。
标记:
<asp:RadioButtonList ID="RadList" runat="server" Height="42px" Width="268px">
<asp:ListItem Text="" />
</asp:RadioButtonList>
VB代码:
RadList = New RadioButtonList()
If (Not IsPostBack) Then
Dim bullet As String
Dim i As Integer = 0
For Each bullet In question.answers
Dim item As ListItem
item = New ListItem("" & bullet)
RadList.Items.Add(item)
MsgBox("Added.." & RadList.Items(i).Text)
i = i + 1
Next
End If
RadList.ForeColor = Drawing.Color.Black
RadList.Visible = True
我很想知道为什么以动态方式添加的条目没有显示在屏幕上。
您只需删除代码中的 RadList = New RadioButtonList(),因为它正在创建 RadioButtonList 的名为 RadList 的新对象并忽略您的控件。代码如下。
If (Not IsPostBack) Then
Dim bullet As String
Dim i As Integer = 0
For Each bullet In question.answers()
Dim item As ListItem
item = New ListItem("" & bullet)
RadList.Items.Add(item)
MsgBox("Added.." & RadList.Items(i).Text)
i = i + 1
Next
End If
RadList.ForeColor = Drawing.Color.Black
RadList.Visible = True
我试图在 RadioButtonList 上动态添加条目(不是从数据库)。到目前为止,我有以下代码 [markup and .vb] 但是动态添加的 ListItems 没有显示在屏幕上。
当我在标记中添加一些 ListItems 时,它们显示正确,但我想以完全动态的方式添加它们,因为我不知道在执行之前需要多少条目。
标记:
<asp:RadioButtonList ID="RadList" runat="server" Height="42px" Width="268px">
<asp:ListItem Text="" />
</asp:RadioButtonList>
VB代码:
RadList = New RadioButtonList()
If (Not IsPostBack) Then
Dim bullet As String
Dim i As Integer = 0
For Each bullet In question.answers
Dim item As ListItem
item = New ListItem("" & bullet)
RadList.Items.Add(item)
MsgBox("Added.." & RadList.Items(i).Text)
i = i + 1
Next
End If
RadList.ForeColor = Drawing.Color.Black
RadList.Visible = True
我很想知道为什么以动态方式添加的条目没有显示在屏幕上。
您只需删除代码中的 RadList = New RadioButtonList(),因为它正在创建 RadioButtonList 的名为 RadList 的新对象并忽略您的控件。代码如下。
If (Not IsPostBack) Then
Dim bullet As String
Dim i As Integer = 0
For Each bullet In question.answers()
Dim item As ListItem
item = New ListItem("" & bullet)
RadList.Items.Add(item)
MsgBox("Added.." & RadList.Items(i).Text)
i = i + 1
Next
End If
RadList.ForeColor = Drawing.Color.Black
RadList.Visible = True