Sub Button_sql_Click(sender As Object, e As EventArgs)
IF Not Page.IsPostBack Then
If ListBox1.SelectedIndex > - 1
Label1.Text=""
Dim ctr as Integer
For ctr=0 to ListBox1.Items.Count()-1
If ListBox1.items(ctr).selected
Label1.Text += " <b>" & ListBox1.items(ctr).Text & "</b>"
end if
Next
End If
End If
End Sub 'Button_Click 去掉 IF Not Page.IsPostBack Then 吧
IF Not Page.IsPostBack Then
If ListBox1.SelectedIndex > - 1
Label1.Text=""
Dim ctr as Integer
For ctr=0 to ListBox1.Items.Count()-1
If ListBox1.items(ctr).selected
Label1.Text += " <b>" & ListBox1.items(ctr).Text & "</b>"
end if
Next
End If
End If
End Sub 'Button_Click 去掉 IF Not Page.IsPostBack Then 吧
If ListBox1.items(ctr).selected=true
Label1.Text += " <b>" & ListBox1.items(ctr).Text & "</b>"
end if
Next