Dim cmb As WinForm.ComboBox = e.SenderDim str As String = e.Form.Controls("ComboBox1").Valuecmb.ComboList = DataTables("Users").GetComboListString("姓名", "Group = '" & str & "'")
下面组给框"ComboBox2"内容是由上面事件得到的,下面1行代码如何改,循环运行时分别取得组合框里的每1个姓名
For Each s As String In e.form.controls("ComboBox2").ComboList.split("|")