[原创]我想问一下，关于锁定的按钮的代码。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]我想问一下，关于锁定的按钮的代码。

共有12128人关注过本帖树形打印复制链接主题：[原创]我想问一下，关于锁定的按钮的代码。

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/1 10:57:00 [显示全部帖子]

你要锁定表,列,还是行.或者就是锁定按钮?锁定按钮是什么意思?

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/1 12:52:00 [显示全部帖子]

锁定表:DataTables("订单").AllowEdit = False

取消锁定表:DataTables("订单").AllowEdit = true

锁定行:

With Tables("表名")

If .Current IsNot Nothing Then

.Current.Locked = True

End If

End With

取消锁定行:

With Tables("表名")

If .Current IsNot Nothing Then

.Current.Locked = False

End If

End With

锁定列:DataTables("订单").DataCols("折扣").AllowEdit = False

取消锁定列:DataTables("订单").DataCols("折扣").AllowEdit =

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/1 12:52:00 [显示全部帖子]

取消锁定列:DataTables("订单").DataCols("折扣").AllowEdit = true

主题：[原创]我想问一下，关于锁定的按钮的代码。