- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]解锁列、解锁表问题--能通过事件锁定，不能通过事件解除 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26953)
-- 发布时间：2012/12/18 13:34:00
-- [求助]解锁列、解锁表问题--能通过事件锁定，不能通过事件解除
解锁列、解锁表问题--能通过事件锁定，不能通过事件解除（常用一下代码）
Select Case User.Name
Case "AAA"
Select Case e.Col.Name
Case "第一列"
Syscmd.Column.Lock()
End Select
Case "BBB"
Select Case e.Col.Name
Case "第一列"
Syscmd.Column.UnLock()
End Select
Case Else
Syscmd.Column.UnLock()
End Select
Select Case User.Name
Case "AAA"
Syscmd.Table.Lock()
Case "BBB"
Syscmd.Table.UnLock()
Case Else
Syscmd.Table.UnLock()
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:解锁列、解锁表问题.foxdb |
-- 发布时间：2012/12/18 13:47:00
--
代码写在LoadUserSetting。
比如
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:解锁列、解锁表问题.foxdb |
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编辑过]
-- 发布时间：2012/12/19 16:00:00
--
Foxtable is very good!