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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口中各种表的行锁定

共有1839人关注过本帖树形打印复制链接主题：[求助]窗口中各种表的行锁定

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]窗口中各种表的行锁定 发帖心情

Post By：2015/6/26 11:38:00 [只看该作者]

老师，

窗口中的表 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编辑过]