专家坐堂-关于审批功能是否可以批量审批Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于审批功能是否可以批量审批  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117291)

--  作者：风之痕
--  发布时间：2018/4/10 11:27:00
--  关于审批功能是否可以批量审批
新手上路，希望老师指点一下。
因为数据量大，对于帮助文件中，实现领导审批功能的这一段代码，我需要怎么修改才能实现将选中的多行一键审批？

If User.Group = "经理" Then
    Tables("表A").Current("审批人") = User.Name
    Tables("表A").Current("审批日期") = Date.Today()
Else
    MessageBox.show("你无审批权限!")
End If

取消审批功能也是一样，我需要怎么修改才能实现将选中的多行一键取消审批？

If User.Group = "经理" Then
    Tables("表A").Current("审批人") = Nothing
    Tables("表A").Current("审批日期") = Nothing
Else
    MessageBox.show("你无取消审批权限!")
End If

请狐爸帮忙完善一下

--  作者：有点甜
--  发布时间：2018/4/10 11:33:00
--
If User.Group = "经理" Then
    Dim t As Table = Tables("表A")
    For i As Integer = t.TopPosition To t.BottomPosition
        Dim r As Row = t.rows(i)
        r("审批人") = User.Name
        r("审批日期") = Date.Today()
    Next
Else
    MessageBox.show("你无审批权限!")
End If

--  作者：风之痕
--  发布时间：2018/4/10 13:55:00
--
好的，谢谢

--  作者：风之痕
--  发布时间：2018/12/29 14:28:00
--
老师，麻烦您看一下这个代码该如何实现，？？？？处该填什么内容才能表述正确

Dim t As Table = ??????
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.rows(i)
Select Case t
Case "表A","表B","表C"
If User.Group = "审核员" Then
r("审批人") = User.Name
r("审批日期") = Date.Today()
Else
MessageBox.show("没有权限!")
End If
End Select
Next

--  作者：有点蓝
--  发布时间：2018/12/29 14:57:00
--

代码放在什么事件？全局表事件？

--  作者：风之痕
--  发布时间：2018/12/29 15:07:00
--
新建的审批按钮

此主题相关图片如下：捕获.png

--  作者：有点蓝
--  发布时间：2018/12/29 15:18:00
--
Dim t As Table = CurrentTable