Foxtable(狐表)用户栏目专家坐堂 → openQQ审核


  共有2616人关注过本帖树形打印复制链接

主题:openQQ审核

美女呀,离线,留言给我吧!
qinlao666
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:449 积分:3824 威望:0 精华:0 注册:2015/3/3 10:06:00
openQQ审核  发帖心情 Post By:2019/3/13 17:18:00 [显示全部帖子]

审核按钮命令如下

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条的审核

请老师赐教批量审核更新的代码,谢谢!


 回到顶部