0

我正在尝试将下拉列表中的每个项目添加到标签。任何猜测为什么它不起作用。感谢您的回答。

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
4

2 回答 2

2

几个问题

1:由于您正在检查LabelCount>0 labels(0)将永远不会被填充。

2:对于循环中的每个项目,您没有任何增量来推进标签数组的填充。

3:item下拉列表中的每个都是ListItem. 要从中获得任何有用的信息,您最好使用item.Textitem.Value

于 2013-01-15T08:47:04.473 回答
1

看起来LabelCount的值为 0 并且在for each. 您可以改用:

For i as Integer = 0 to DropDownList1.Items.Count
    If i >= 3 Then Exit For
    labels(i).Text = DropDownList1.Items(i).ToString()
Next

我想DropDownList1是 ComboBox 或类似的。

于 2013-01-15T08:50:30.823 回答