代码写在LoadUserSetting。
比如
Select Case User.Name
Case "AAA"
DataTables("表A").DataCols("第一列").AllowEdit = False
DataTables("表A").AllowEdit = False
Case "BBB"
DataTables("表A").DataCols("第二列").AllowEdit = False
DataTables("表A").AllowEdit = True
Case Else
DataTables("表A").DataCols("第二列").AllowEdit = True
DataTables("表A").DataCols("第二列").AllowEdit = True
DataTables("表A").AllowEdit = True
End Select
[此贴子已经被作者于2012-12-18 13:47:22编辑过]