Foxtable(狐表)用户栏目专家坐堂 → [求助如果有多个表,]如何设置所有表审批权限代码如何写?


  共有4185人关注过本帖平板打印复制链接

主题:[求助如果有多个表,]如何设置所有表审批权限代码如何写?

帅哥哟,离线,有人找我吗?
sxy_123456
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1613 威望:0 精华:0 注册:2013/5/21 17:44:00
[求助如果有多个表,]如何设置所有表审批权限代码如何写?  发帖心情 Post By: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
如果有二十个不同的表都要复核代码如何写

 回到顶部