审核按钮命令如下
If User.name = "张良斌" Then
Dim ids As String = ""
Dim bhs As String = ""
Dim rs = Tables("生产计划审核2_计划申请表").GetCheckedRows
If rs.count=0 Then Return
Dim name As String = rs(0)("请购人")
For Each r As Row In rs
r("审核") = True
r("审核人") = user.name
r("审核日期") = Date.Today()
r.Save()
ids &= r("_Identify") & ","
bhs &= r("请购单号") & ","
Next
If ids > "" Then
msgbox(ids)
msgbox(name)
QQClient.Send(name,"-@|"& bhs.trim(",") & "|" & User.Name)
End If
Else
MessageBox.show("你无审核权限!")
End If
客户端receivedmessage命令
pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
PopMessage("生产计划" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim dr As DataRow = DataTables("生产计划").Find("请购单号 = '" & pts(1) & "'")
If dr IsNot Nothing Then
dr.Load
End If
现在问题是:批量审核多条数据后,生产计划表没法自动更新,只能是1条1条的审核
请老师赐教批量审核更新的代码,谢谢!