Dim mylistitem1 As ListItem
Dim mylistitem2 As ListItem
For Each mylistitem1 In CheckBoxList1.Items
If mylistitem1.Selected Then
mylistitem2 = New ListItem()
mylistitem2.Text = mylistitem1.Text
mylistitem2.Value = mylistitem1.Value
Listbox2.Items.Add(mylistitem2)
End If
Next
Dim mylistitem2 As ListItem
For Each mylistitem1 In CheckBoxList1.Items
If mylistitem1.Selected Then
mylistitem2 = New ListItem()
mylistitem2.Text = mylistitem1.Text
mylistitem2.Value = mylistitem1.Value
Listbox2.Items.Add(mylistitem2)
End If
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货