Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]彻底优化独占式编辑终极版---求狐爸给精华


  共有5827人关注过本帖树形打印复制链接

主题：[分享]彻底优化独占式编辑终极版---求狐爸给精华
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/16 22:56:00 [只看该作者]

以下是引用rjh4078在2014-4-16 22:51:00的发言：

关于独占模式 有个问题比较烦人 如果客户端崩溃 如何解锁？

 

解锁还是挺简单的，帮助不是介绍了如何解锁么？做一个按钮，把值改一下就行了。
 回到顶部
帅哥哟，离线，有人找我吗？
scott518
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2488 威望：0 精华：0 注册：2011/11/4 17:32:00 		  发帖心情 Post By：2014/4/16 23:17:00 [只看该作者]

学习

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/4/17 8:26:00 [只看该作者]

呵呵，不错，多谢楼主分享，我修改一下帮助，加上楼主的想法
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2014/4/17 8:36:00 [只看该作者]

以下是引用737182811在2014-4-16 22:55:00的发言：
狐爸例子中不是说了嘛,非法退出的情况,有解锁代码的.

求链接
 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/17 8:39:00 [只看该作者]

http://www.foxtable.com/help/topics/2295.htm



'解锁非正常退出时被锁定的记录
DataTables("员工").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")
DataTables("员工").Save()
Tables("员工").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列

 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/17 8:40:00 [只看该作者]

代码有问题的话，狐爸别忘了吼一声。图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/4/17 8:46:00 [只看该作者]

        For Each c As Col In e.Table.Cols
            If r.DataRow.OriginalValue(c.name)  <>  r(c.name) AndAlso c.name<>"编辑者" AndAlso c.name<>"执行次数"  Then   '不检查编辑者列和表达式列
                i = i+1
            End If
        Next

 

可以改为：

 

        For Each c As Col In e.Table.Cols

            If r.DataRow.OriginalValue(c.name)  <>  r(c.name) AndAlso c.name<>"编辑者" AndAlso c.name<>"执行次数"  Then   '不检查编辑者列和表达式列
                i = i+1
                Exit For
            End If
        Next

 

因为只要有一列修改了，就表示此行修改了，没必要发现有一列修改之后，继续往下遍历所有列。

当然这是小问题，对于实际运行不会有任何影响，因为就是全部遍历，用的时间也可以忽略不计。
 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/17 8:50:00 [只看该作者]

谢狐爸，追求完美是一种好习惯嘛，尤其历史上有windows vista越用越慢的教训。
只要别受统计，排序，筛选影响就好。
 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询