主题：[求助]权限问题

把所有表隐藏即可。

 

Tables("表A").visible = true

Tables("表B").visible = false

Tables("表A.表B").visible = false

http://www.foxtable.com/help/topics/1600.htm

 

帮助文档里的。一列，添加一行数据。

用一行也可以，代码要改。用逗号分隔各列，如 第一列,第二列,第三列

 

Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")

 

改成

 

For Each c As String in dr("列名").Split(",")

    Tables(dr("表名")).Cols(c).Visible = Not dr("不可见")

Next

不需要改，有多少列，就写多少列 第一列,第二列,第三列

表名，就写关联表的表名即可。

1、你填入的列要是你自己的列名啊

 

2、代码

 

For Each c As String In dr("列名").Split(",")
    Tables(dr("表名")).Cols(c).Visible = Not dr("不可见")
    Tables(dr("表名")).Cols(c).Visible = Not dr("不可编辑")
Next

不，可，能

有错，上传实例。

如果还有错，请上传实例。