以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助如果有多个表，]如何设置所有表审批权限代码如何写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41760)
--  作者：sxy_123456
--  发布时间：2013/10/26 19:07:00
--  [求助如果有多个表，]如何设置所有表审批权限代码如何写？
If User.Group = "财务部" Then
    With Tables("材料采购申请单")
        With Tables("材料采购申请单")
            For i As Integer = .TopPosition To .BottomPosition
                .Rows(i)("复核") =  User.Name
                .Rows(i)("复核日期") =  Date.Today()
            Next
        End With
    End With
    
Else
    MessageBox.show("你无复核权限!")
End If
如果有二十个不同的表都要复核代码如何写
--  作者：有点甜
--  发布时间：2013/10/26 19:14:00
--  
 可以用全局表事件，参考一下。
--  作者：有点甜
--  发布时间：2013/10/26 19:16:00
--  
 如果是用按钮做的话，可以用currenttable代替tables("xxx")
--  作者：sxy_123456
--  发布时间：2013/10/26 20:01:00
--  
谢谢
--  作者：sloyy
--  发布时间：2013/10/26 20:30:00
--  

嗯 全局表事件 又学到了一个好东西

[此贴子已经被作者于2013-10-26 20:30:58编辑过]