代码是否有误！
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
加好友 
发短信
Post By：2017/3/24 22:09:00 [只看该作者]
