以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中各种表的行锁定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70680)
--  作者：blsu33
--  发布时间：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
    Next
Next

等增加的时候再解锁行 ，

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

[此贴子已经被作者于2015/6/26 11:41:23编辑过]
--  作者：Bin
--  发布时间：2015/6/26 11:41:00
--  
For Each st As String In sts
    Tables(st).replacefor("_Locked",true,"")
Next
--  作者：blsu33
--  发布时间：2015/6/26 11:55:00
--  
谢谢老师
好用 学习了