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
If Tables(dr("表名")).Cols.Contains(dr("列名"))= True Then
Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
Tables(dr("表名")).Cols.Remove((dr("列名"))
End If
End
If
Next
End
If
狐爸,我用以上代码,怎么列除了我做了个表达式引用 _Identify自动编号的列加载了,其他的都不加载了呢?
这个是不是判断列不可见,就不加载了呢?
[此贴子已经被作者于2010-7-16 10:37:26编辑过]