Foxtable(狐表)用户栏目专家坐堂 → 独占编辑


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

主题:独占编辑

帅哥哟,离线,有人找我吗?
有点甜
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/1 15:11:00 [显示全部帖子]

 参考

 

下载信息  [文件大小:308.0 KB  下载次数:4]
图片点击可在新窗口打开查看点击浏览该文件:文件按钮_例子.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/1 16:32:00 [显示全部帖子]

If dr IsNot Nothing And dr("编辑者")=User.Name Then     

 

改成

 

If dr IsNot Nothing Andalso dr("编辑者")=User.Name Then     


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/1 17:19:00 [显示全部帖子]

以下是引用ycwk在2018/2/1 17:16:00的发言:
and andalso有什么区别?

 

当没有找到数据的时候,dr是nothing,引用值就会报错

 

参考 http://www.foxtable.com/webhelp/scr/0220.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/4 20:14:00 [显示全部帖子]

没看懂你意思。请上传实例具体说明问题。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/5 9:05:00 [显示全部帖子]

1、你是如何给【编辑者】那一列赋值的?用什么代码处理?

 

2、去看看你beforeLoad和afterLoad事件的代码,看是否有影响。

 

3、不然就做个对应例子发上来测试。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/5 10:15:00 [显示全部帖子]

你是如何给【编辑者】那一列赋值的?用什么代码处理?

 

你可以把t.DataTable.Load改成t.DataTable.Load(false)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/5 10:23:00 [显示全部帖子]

把t.DataTable.Load改成t.DataTable.Load(false)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/5 10:26:00 [显示全部帖子]

t.DataTable.Load(false) 不会导致触发beforeSaveDataRow事件。

 

或者,你在表格、项目的各个事件,加入msgbox,看触发了哪些事件代码?然后注释掉测试。

 

不会做,做个例子发上来。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/5 10:52:00 [显示全部帖子]

在命令窗口执行下面代码,看弹出是否正确

 

For Each key As String In vars("ls").keys
    try
       '如果是当前用户退出编辑文档,则try语句可以正常执行
        vars("ls")(key).ExitTime 
        msgbox(key & ":正常关闭" & vars("ls")(key).ExitTime )
    catch ex As exception    '如果当前用户没有退出编辑的文档,则执行以下代码
        msgbox(key & ":正常打开")
    End try
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/5 11:42:00 [显示全部帖子]

 实例发上来测试。

 回到顶部
总数 34 上一页 1 2 3 4 下一页