主题：[求助]解锁列、解锁表问题--能通过事件锁定，不能通过事件解除

解锁列、解锁表问题--能通过事件锁定，不能通过事件解除（常用一下代码）

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

 代码写在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

Foxtable is very good!