专家坐堂-在DataColChanged里设置QQClient.SendChatMessage，不能批量发送信息！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  在DataColChanged里设置QQClient.SendChatMessage，不能批量发送信息！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98152)

--  作者：xluoping
--  发布时间：2017/3/24 22:09:00
--  在DataColChanged里设置QQClient.SendChatMessage，不能批量发送信息！

代码是否有误！

Select Case e.DataCol.Name
Case "详细过程"
If QQClient.Ready Then
Else
QQClient.ServerIP = ftpip \'指定服务器IP地址
QQClient.ServerPort = ftpdk \'指定服务器端口
QQClient.UserName = _userGroup & "." & _userName
Dim dr As DataRow = DataTables("Users").find("Name = \'" & _userName & "\'")
Dim st6 As String
If dr IsNot Nothing Then
st6 = dr("密码")
End If
QQClient.Password = st6
QQClient.Start()
End If
QQClient.MenuItems = "|自定义项目之一|自定义项目之二|-|自定义项目之三"
Dim stx As String
Dim drx As DataRow = DataTables("客户").Find("_Identify = \'" & e.DataRow("kehuID") & "\'")
If drx IsNot Nothing Then
stx = drx("地级市") & drx("县区") & drx("乡镇")
End If
Dim stjq As String = Iif(e.DataRow.IsNull("报告交期") ,"",e.DataRow("报告交期"))
stx = e.DataRow("客户名称") & ":" & stx & e.DataRow("任务编号") & Chr(13) & Chr(10) & "报告交期:" & stjq & Chr(13) & Chr(10) & e.DataRow("详细过程")
Dim Multi As String = e.DataRow("创建人") & ","
Dim ur As Row = Tables("机构").Current
If ur IsNot Nothing Then
Multi = Multi & ur("跟单人")
End If
Multi = Multi.Trim(",")
Dim Values() As String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
Dim dur As DataRow = DataTables("Users").Find("Name = \'" & Values(Index) & "\'")
If dur IsNot Nothing Then
QQClient.SendChatMessage(dur("部门") & "." & dur("Name"),stx)
End If
Next
End Select

--  作者：xluoping
--  发布时间：2017/3/24 22:17:00
--
是我搞错了，代码没有问题