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 dr.IsNull("列名") Then
Tables(dr("表名")).Visible = Not dr("不可见")
Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
Else
For Each c As String In dr("列名").Split(",")
Tables(dr("表名")).Cols(c).Visible = Not dr("不可见") Tables(dr("表名")).Cols(c).Visible = Not dr("不可编辑") Next End If
Next
End If
全部代码这样写吗?
填入的就是自己的表名和列名呀,提示不存在吗?