[求助]关于独占编辑与数据加载的疑问 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于独占编辑与数据加载的疑问

共有2182人关注过本帖树形打印复制链接主题：[求助]关于独占编辑与数据加载的疑问

huangfanzi

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

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

[求助]关于独占编辑与数据加载的疑问 发帖心情

Post By：2015/6/10 10:02:00 [显示全部帖子]

SQL数据库，有张员工表，假定数据量会是很大的，因此在外部数据表设置中设了“[_Identify] Is Null，也就是只加载结构，不加载数据，为了进行独占式编辑，根据帮助文件，在这个表加载按钮中有以下代码：

If DataTables.Contains("员工") = False Then '如果表没有加载

DataTables.Load("员工") '加载表

'解锁非正常退出时被锁定的记录

DataTables("员工").ReplaceFor("编辑者",Nothing,"编辑者 = '" & _UserName & "'")

DataTables("员工").Save()

Tables("员工").Cols.Remove("编辑者","Log") '移除编辑者列与Log列,避免用户直接修改此列

End If

MainTable = Tables("员工")

上面的代码执行后得到一张空表，同时设置了加载树进行后续操作。

现在有问题来了，由于是张空表，代码中红字部分是不是没有意义了，我应该如何操作才能实现解锁非正常退出时被锁定的记录这个功能呢？

huangfanzi

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

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

Post By：2015/6/10 10:10:00 [显示全部帖子]

就这张员工表而言，我会设置按部门与姓名的加载树，如：Tables("员工").OpenLoadTree("部门|姓名")

huangfanzi

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

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

Post By：2015/6/10 10:21:00 [显示全部帖子]

表在加载后就是一张空表，然后我通过设置的加载树来加载数据，根据BIN老师的提示，用SQLReplaceFor进行后台替换确实是好方法，但我又想到一个揪心的问题，如果这个项目中有N张表，我是不是要执行N次的SQLReplaceFor

主题：[求助]关于独占编辑与数据加载的疑问