用 http://www.foxtable.com/help/topics/0940.htm

给多个用户 发信息

此主题相关图片如下：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 = ""

如何排除本人

For Index As Integer = 0 To Values.Length - 1

    If values(Index) <> user.Name Then

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

Dim Values() As String
Values = re.split(",")
For Index As Integer = 0 To Values.Length - 1
    If values(Index) <> user.Name Then
        Dim r As Row = Tables("message").AddNew()
        r("sender") = User.Name
        r("sendtime") = Date.Now
        r("reciever") =values(Index)
        r("message") = cn
        r.Save()
    End If
Next
e.Form.Controls("TextBox1").Value = ""

在发布后 接收计划 出错

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

 不发布是否报错？自己调试一下哪里出问题

 http://www.foxtable.com/help/topics/1485.htm

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