主题：[求助]窗口table中勾选好的显示列不起作用了，

老师，昨天我照帮助中的代码，采用可视化授权表后

发现所有窗口table中勾选好的显示列不起作用，所属表的所有列都显示出来了，请问老师这是哪里出了问题？

禁止修改表事件也失效了，

LoadUserSetting事件

If User.Group = "超管" Then
DataTables("出库单").AllowEdit = True
DataTables("入库单").AllowEdit = True
DataTables("入库").AllowEdit = True
DataTables("出库").AllowEdit = True
DataTables("退出库单").AllowEdit = True
DataTables("退出库").AllowEdit = True
Else
DataTables("出库单").AllowEdit = False
DataTables("入库单").AllowEdit = False
DataTables("入库").AllowEdit = False
DataTables("出库").AllowEdit = False
DataTables("退出库单").AllowEdit = False
DataTables("退出库").AllowEdit = False
End If

 

窗口6 调拨单据
窗口9 入库单据
窗口10 退出库单据

麻烦老师帮忙看下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:即时库存表_201703091805.zip

密码默认

红色代码删除掉

 

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.Group & "'" )
        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
    Next
End If

如果不考虑中途切换用户，那么代码可以挪到项目事件AfterOpenProject中，下面的这一段代码可以删除：

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

 

请问老师这段应该怎样理解呢？

这段代码的意思是：循环所有表，循环所有列，把可见设置成true，把可编辑设置成false。

谢谢老师的解答，虽然还是不懂，但效果是杠杠的