[求助]平均分配数据并提醒 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq截图20171107103537.png

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("CheckedListBox1").SelectedValue

If Forms("资源分配").Controls("_mtxz").Value = Nothing Then

Else

r("媒体") = Forms("资源分配").Controls("_mtxz").Value

End If

r("分配日期") = Forms("资源分配").Controls("DateTimePicker1").Value

r.save

Dim nm As String = r("部门") & "." & r("工号")

If dic.ContainsKey(nm) = False Then

dic.Add(nm, 1)

Else

dic(nm) += 1

End If

For Each key As String In dic.Keys

QQClient.SendChatMessage(key, "{!} 已收到" & dic(key) & "条新的客户资源请及时处理!")

Syscmd.Project.Save()

这段代码是图片中确认分配的。效果就如图一样可以批量将数据的工号修改为CheckedListBox1控件中打勾的人。同时给这个人发去OpenQQ的弹窗告诉他接收导XX条新的客户资源。

但是这段代码只能给一个人分配同时只会提醒一个人。如果我想改成CheckedListBox1控件选择多个人时会将Table中勾选中的数据工号列中平均填入CheckedListBox1控件选择的多个人的工号并给这些人发送接收XX条新的客户资源应该怎么做。自己绕的有点晕麻烦各位老师了。。

Dim t As Table = Tables("资源分配_Table1")
Dim dic As new Dictionary(Of String, Integer)
Dim ary() As String = Forms("资源分配").Controls("CheckedListBox1").Value.split(",")
Dim i As Integer = 0
For Each r As Row In t.GetCheckedRows
    r("工号") = ary(i)
    If Forms("资源分配").Controls("_mtxz").Value = Nothing Then
    Else
        r("媒体") = Forms("资源分配").Controls("_mtxz").Value
    End If
    r("分配日期") = Forms("资源分配").Controls("DateTimePicker1").Value
    r.save
    Dim nm As String = r("部门") & "." & r("工号")
    If dic.ContainsKey(nm) = False Then
        dic.Add(nm, 1)
    Else
        dic(nm) += 1
    End If
    i += 1
    If i = ary.length Then
        i = 0
    End If
Next
For Each key As String In dic.Keys
    QQClient.SendChatMessage(key, "{!} 已收到" & dic(key) & "条新的客户资源请及时处理!")
Next
Syscmd.Project.Save()

感谢甜老师，没问题

主题：[求助]平均分配数据并提醒