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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SendChatMessage弹窗

共有2330人关注过本帖树形打印复制链接主题：SendChatMessage弹窗

zoudezhao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

SendChatMessage弹窗 发帖心情

Post By：2017/7/14 12:10:00 [只看该作者]

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 14:33:07编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/14 12:20:00 [只看该作者]

按照创建人进行分组吗？你勾选的有可能是不同的创建人，要给不同的人发送信息。你希望每个人的汇总在一次发送？

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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()

zoudezhao

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

Post By：2017/7/14 14:32:00 [只看该作者]

对的给一个人发送信息，每次选择30个客户给一个人发送

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/14 14:41:00 [只看该作者]

用3楼的代码，有什么问题？

zoudezhao

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

Post By：2017/7/14 14:45:00 [只看该作者]

是这样的甜老师我给他们两个人都分配了五个客户以后，客户会过去，但是没有弹窗

此主题相关图片如下：ssss.png

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/14 14:53:00 [只看该作者]

发送信息成功吗？弹出什么？有对应的用户吗？

For Each key As String In dic.Keys

msgbox(key)
QQClient.SendChatMessage(key, dic(key))
next

zoudezhao

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

Post By：2017/7/14 15:08:00 [只看该作者]

好了甜老师，之前忘记登录OpenQQ了。。如果想加上记数可以做到么，计算出给分配的客户数量

zoudezhao

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

Post By：2017/7/14 15:12:00 [只看该作者]

弹窗的时候可以弹出给分配了多少条客户信息

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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()

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：SendChatMessage弹窗