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

If Tables("问题汇总").Current.IsNull("收件人") = False Then

MessageBox.Show("不能重复发送信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

Dim sjr As String =e.Form.Controls("CheckedComboBox1").text

Dim nms() As String = e.Form.Controls("CheckedComboBox1").text.split(",") \'获得接收用户名

Dim bm1 As String = Tables("问题汇总").Current("编号")

Dim cmd As New SQLCommand

cmd.C

Dim dt As Date

cmd.CommandText = "Select GetDate()"

dt = cmd.ExecuteScalar()

dt = dt.Date

Dim cmdd As New SQLCommand

Dim dtt As DataTable

cmdd.C

cmdd.CommandText = "SELECT Name,shouji From {users}"

dtt = cmd.ExecuteReader()

Tables("问题汇总").Current("收件人") = sjr

Tables("问题汇总").Current.Save

For Each nm As String In nms

If nm = "" Then

Return

End If

If nm = User.Name Then

MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

Dim dr As DataRow

dr = dtt.Find("name = nm ")

cmd.CommandText = "Insert Into xinxi (fasong,jieshou,neirong,fasongshijian,dianhua,zhuangtai) Values (\'" & user.name & "\',\'" & nm & "\',\'编号为:"& bm1 &"的问题,需要您处理\',\'" & dt &" \',\'" & dr(shouji) &" \',0)"

cmd.ExecuteNonQuery