主题：窗口中的combobox 控件，如何多值？

窗口中的combobox 控件，如何多值？

给多个用户 发信息

 

此主题相关图片如下：qq图片20150107204500.png

   发送代码

如何写循环

Dim re As String = e.Form.Controls("CheckedComboBox1").Value '获得接收用户名
Dim cn As String = e.Form.Controls("TextBox1").Value '获得发送内容
If re = "" OrElse cn = "" Then
    Return
End If
If re = User.Name Then
    MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Dim r As Row = Tables("message").AddNew()
r("sender") = User.Name
r("sendtime") = Date.Now
r("reciever") = re
r("message") = cn
r.Save()
e.Form.Controls("TextBox1").Value = ""

Dim re As String = e.Form.Controls("CheckedComboBox1").Value '获得接收用户名
Dim cn As String = e.Form.Controls("TextBox1").Value '获得发送内容
If re = "" OrElse cn = "" Then
    Return
End If
If re = User.Name Then
    MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Dim Values() As String
Values = re.split(",")
For Index As Integer = 0 To Values.Length - 1
Dim r As Row = Tables("message").AddNew()
r("sender") = User.Name
r("sendtime") = Date.Now
r("reciever") =values(Index)
r("message") = cn
r.Save()
Next
e.Form.Controls("TextBox1").Value = ""

 

如何排除本人

在发布后 接收计划 出错

 

 

此主题相关图片如下：qq图片20150107213440.jpg

 

 

全面的问题 都搞定了，多谢甜老师，还有问题能不能优化一下 ，譬如用户名为本人，能不能在CheckedComboBox1不要显示了，代码怎么写

此主题相关图片如下：qq图片20150108142717.jpg

好像出错了

Dim ckcmb1 As WinForm.CheckedComboBox= e.Form.Controls("CheckedComboBox1")
ckcmb1.ComboList = DataTables("用户").SQLgetComboListString("name","Type<5 and name<>user.name")

不知道对不对

 

Dim ckcmb1 As WinForm.CheckedComboBox= e.Form.Controls("CheckedComboBox1")
ckcmb1.ComboList = DataTables("用户").SQLgetComboListString("name","type<5 and name<>'"& user.name &"'")
 这个就对了