If User.Group = "客户" Then
For Each dt As DataTable In DataTables
dt.AllowClipBoard = False
Next
End If
If User.Group = "主管" Then
DataTables("表A").AllowEdit = True
Else
DataTables("表A").AllowEdit = False
End If
或者
If User.Group = "客户" Then
For Each dt As DataTable In DataTables
dt.AllowClipBoard = False
Next
End If
DataTables("表A").AllowEdit = (User.Group = "主管")
[此贴子已经被作者于2011-12-2 21:40:30编辑过]
加好友 
发短信
Post By：2011/12/2 21:15:00 [显示全部帖子]
