主题：[求助]独占式编辑怎么让多个表有效，示例只有一个表，不会写。

2、在项目事件AfterOpenProject设置代码：

Da t aT a  b le s("员工").Re pl a c e For("编辑 者",N oth ing,"编 辑者 = '" & User.Name & "'")
Da t a Ta bl es("员工").Save()
Tab l es("员工").Cols.Rem o ve("编 辑者") 

6、最后设置Before C l o s e P r o j e c t事件代码为：

Dim cm d As New S Q L C o mm a nd
cm d.Com m and Tex t = "U pd at e { 员 工} Se t 编 辑者 = Nu ll W h ere 编 辑者 = '" & Us er.Na me & "'"
cm d.E xec u te Non Query

以上是帮助文档的，可是我有很多表，怎么可以让这些表都可以实行独占式编辑呢？上面的代码应该怎么改啊？

OPENQQ用不到，老式的独占编辑停好的。