主题：[求助]授权表，对“主窗口”中的副本表“入库订单表”中的列进行授权设置，代码应该怎么改？

1、窗口表的表名，是这样的， 窗口1_table1

你设置的时候，把表名写对即可。

2、在窗口的afterLoad事件，也复制你【loadusersetting】事件的代码过去执行，即可。

3、参考这个设计 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=5&ID=23959&skin=0

改成比如

'创建一个"授权表",对各表及其中各列进行"可视化"和"允许编辑"的授权:
For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If Tables.contains(dr("表名")) Then
            If dr.IsNull("列名") Then
                Tables(dr("表名")).Visible = Not dr("不可见")
                Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
            Else
                Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
                Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            End If
        End If
    Next
End If

是的。