- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- SendChatMessage弹窗 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103683)
-- 发布时间：2017/7/14 12:10:00
-- SendChatMessage弹窗
Dim t As Table = Tables("资源分配_Table1")
For Each r As Row In t.GetCheckedRows
r("创建人") = Forms("资源分配").Controls("ListBox1").SelectedValue
r("分组") = Forms("资源分配").Controls("TextBox1").Value
r("分配日期") = Forms("资源分配").Controls("DateTimePicker1").Value
r.save
Dim ug As String = "创建人"
Dim nm As String = ug & "." & r("创建人")
Dim xx As String = "{!}已收到新的客户资源请及时处理!"
QQClient.SendChatMessage( nm , xx)
Next
Syscmd.Project.Save()
分配后会给他们弹窗提醒但是假设复选30条他会有30个弹窗如果我想让他弹一个窗提示30条可以做到么。。
此主题相关图片如下：ppppp.png
-- 发布时间：2017/7/14 12:20:00
--
按照创建人进行分组吗？你勾选的有可能是不同的创建人，要给不同的人发送信息。你希望每个人的汇总在一次发送？
-- 发布时间：2017/7/14 12:26:00
--
Dim t As Table = Tables("资源分配_Table1")
Dim dic As new Dictionary(Of String ,String)
For Each r As Row In t.GetCheckedRows
r("创建人") = Forms("资源分配").Controls("ListBox1").SelectedValue
r("分组") = Forms("资源分配").Controls("TextBox1").Value
r("分配日期") = Forms("资源分配").Controls("DateTimePicker1").Value
r.save
Dim ug As String = "创建人"
Dim nm As String = ug & "." & r("创建人")
If dic.ContainsKey(nm) = False Then
dic.Add(nm, "{!}已收到新的客户资源请及时处理!")
End If
Next
For Each key As String In dic.Keys
QQClient.SendChatMessage(key, dic(key))
next
Syscmd.Project.Save()
-- 发布时间：2017/7/14 14:32:00
--
对的给一个人发送信息，每次选择30个客户给一个人发送
-- 发布时间：2017/7/14 14:41:00
--
用3楼的代码，有什么问题？
-- 发布时间：2017/7/14 14:45:00
--
是这样的甜老师我给他们两个人都分配了五个客户以后，客户会过去，但是没有弹窗
此主题相关图片如下：ssss.png
-- 发布时间：2017/7/14 14:53:00
--
发送信息成功吗？弹出什么？有对应的用户吗？
For Each key As String In dic.Keys
msgbox(key)
QQClient.SendChatMessage(key, dic(key))
next
-- 发布时间：2017/7/14 15:08:00
--
好了甜老师，之前忘记登录OpenQQ了。。如果想加上记数可以做到么，计算出给分配的客户数量
-- 发布时间：2017/7/14 15:12:00
--
弹窗的时候可以弹出给分配了多少条客户信息
-- 发布时间：2017/7/14 15:31:00
--
Dim t As Table = Tables("资源分配_Table1")
Dim dic As new Dictionary(Of String, Integer)
For Each r As Row In t.GetCheckedRows
r("创建人") = Forms("资源分配").Controls("ListBox1").SelectedValue
r("分组") = Forms("资源分配").Controls("TextBox1").Value
r("分配日期") = Forms("资源分配").Controls("DateTimePicker1").Value
r.save
Dim ug As String = "创建人"
Dim nm As String = ug & "." & r("创建人")
If dic.ContainsKey(nm) = False Then
dic.Add(nm, 1)
Else
dic(nm) += 1
End If
Next
For Each key As String In dic.Keys
QQClient.SendChatMessage(key, dic(key) & "! 已收到" & dic(key) & "条新的客户资源请及时处理!")
Next
Syscmd.Project.Save()