老师,OPenQQ发送消息有个这个问题,我原来代码这样,是因为每个职务只有一个人,没有问题
If e.DataCol.Name = "待审批人" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
Dim ds As DataRow
ds = DataTables("用户管理").sqlFind("[职务] = '" & e.DataRow("待审批人") & "'")
If ds IsNot Nothing Then
'msgbox(ds("机构名称") & "." & ds("姓名"))
QQClient.SendChatMessage(ds("机构名称") & "." & ds("姓名"),"{!}你有新的审批消息,请及时审批!")
End If
End If
现在是有的职务有两个人,能否给两个人同时发送审批消息呢?我测试好像不行,有没什么办法处理呢?
[此贴子已经被作者于2020/3/17 11:36:35编辑过]