我正在尝试将每个项目从下拉列表添加到标签。任何猜测为什么它不起作用。谢谢你的回答。
Dim labels(2) As Label
Public Sub AddItemsFromDropdownlistToLabel()
DefineLabels()
'Add Items From Dropdownlist1 to three lables
For Each item As Object In DropDownList1.Items
If LabelCount < 3 AndAlso LabelCount > 0 Then
labels(LabelCount).Text = item.ToString
End If
Next
End Sub
Public Sub DefineLabels()
labels(0) = label1
labels(1) = label2
labels(2) = label3
End Sub
答案 0 :(得分:2)
一些问题
1:由于您正在检查LabelCount>0
labels(0)
将永远不会被填充。
2:你没有为循环中的每个项目增加任何内容来推进标签数组的填充。
3:下拉列表中的每个item
都是ListItem
的实例。要获得有用的任何内容,您最好使用item.Text
或item.Value
。
答案 1 :(得分:1)
LabelCount
看起来for each
的值为0且未在For i as Integer = 0 to DropDownList1.Items.Count
If i >= 3 Then Exit For
labels(i).Text = DropDownList1.Items(i).ToString()
Next
中更改。
你可以改用:
DropDownList1
我认为{{1}}是一个ComboBox或类似的。