[求助]窗口中各种表的行锁定 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

窗口中的表 nomal SQL 副本类型的表

我想把所有的表行锁定

以前是这么做的，有点累

Dim sts() As String = {"部门档案_table1","职员档案","地区分类","客户分类","客户档案","供应商分类","供应商档案","仓库档案","收发类别","存货分类","存货描述","存货档案","货位档案","BOM清单","会计科目","凭证类别","科目类别","付款条件","常用摘要","项目核算","销售类型","发运方式","结算方式","公司档案"}

For Each st As String In sts

For Each r As Row In Tables(st).Rows

r.locked = True

等增加的时候再解锁行，

有没有其他的办法，或者代码优化

[此贴子已经被作者于2015/6/26 11:41:23编辑过]

主题：[求助]窗口中各种表的行锁定