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

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

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

有点甜

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

加好友

发短信

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

Post By：2017/7/14 12:20:00 [显示全部帖子]

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

有点甜

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

加好友

发短信

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

Post By：2017/7/14 14:41:00 [显示全部帖子]

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

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

主题：SendChatMessage弹窗