主题：小问题一个

呵呵,bin贴错地址了。
 
1、设置这个表的Filter属性：

Tables("表名").Filter = "[_Locked] = False Or [_Locked] Is Null"

2、批量锁定符合条件的行：
 
For Each dr As DataRow In DataTables("订单").Select("条件表达式")
    dr.Locked = True
next