老师，帮忙看看 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim yhms As String = e.Form.Controls("用户名").Text '获得接收用户名
Dim nr As String = e.Form.Controls("TextBox2").Text '获得发送内容
If yhm = "" OrElse nr = "" Then
Return
End If

Dim i As Integer
Dim SQL,s2 As String
Dim cmd As New SQLCommand
cmd.Connection Name = "XXX"

For Each js As String In yhms.Split(",")
   If i > 0 Then s2 = vbcrlf & vbcrlf
   s2+ = _UserName & " " & Date.Now & vbcrlf & "      " & nr
   SQL = "Insert Into {内部通讯} ([发送者],[接收者],[发送时间],[发送内容]) Values ('"
   SQL = SQL & _UserName & "','" & js & "',#" & Date.Now & "#,'" & nr & "')"
   cmd.CommandText = SQL
   cmd.ExecuteNonQuery '返回1表示增加成功
   i = i+1
Next

If i >= 1 Then
   e.Form.Controls("TextBox2").Value = ""
   e.Form.Controls("TextBox1").Value = s2
End If

主题：老师，帮忙看看