Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]独占式编辑与加载多表时出现的一个问题


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

主题：[求助]独占式编辑与加载多表时出现的一个问题
帅哥哟，离线，有人找我吗？
jk362223
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		[求助]独占式编辑与加载多表时出现的一个问题  发帖心情 Post By：2014/6/12 23:35:00 [显示全部帖子]

]独占式编辑与加载多表时出现的一个问题,若用医师02登录,无编辑者,且双击不能出现相应的编辑框.退出系统,以开发者登录,则一切皆可,分析原因是,启动系统时,开发者设置是全部表在系统打开后一起同步加载了的,而 医师02登录则没同步加载,表是打开系统后,点击按钮按需要加载的.在现实中,我们需要尽快打开系统,然后按各人需要,加载不同的表,我这个系统,不知为何,与系统同不同步加载的表,功能不一样,上传示例,请帮下,以窗口"挂号收费"为例,按 独占式编辑设置"挂号表"和"基本资料"除开发者外,初始不加载表,
图片点击可在新窗口打开查看此主题相关图片如下：示例.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统.zip

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


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/6/14 8:35:00 [显示全部帖子]

在BeforeLoadInnerTable设置初始不加载
Select Case e.DataTableName
    Case "行政区域" '表A和表B无条件加载
    
    Case Else '其他所有表默认都不加载
        e.Cancel = True
End Select

If e.DataTableName = "基本资料" Then
    e.Filter = "[身份证号] Is Null"
End If

If e.DataTableName = "挂号表" Then
    e.Filter = "[身份证号] Is Null"
End If
打开示例,
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统1.zip
,点击""安康医院""窗口中的""挂号收费部门""的按钮,打开"挂号收费"窗口,发现"基本资料"和"挂号表"都能编辑,
且双击都不能打开他们的编辑框,只有点击打开"设置项目属性"窗口,关闭该窗口后,出现""安康医院""窗口,再点""挂号收费部门""的按钮,打开"挂号收费"窗口,就一切如常了,不知为何?
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/6/14 10:09:00 [显示全部帖子]

是不是可以说,表事件和项目事件设置,对打开项目后再加载的表是不产生效果的,只对项目打开前就已加载的表起效果!

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


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/6/14 11:47:00 [显示全部帖子]

那要怎么做,才让表事件对新加载的表起作用?
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/6/14 11:47:00 [显示全部帖子]

对4楼, 那要怎么做,才让表事件对新加载的表起作用?

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


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/6/14 18:04:00 [显示全部帖子]

就我4楼这个示例,这个 控制代码如何写?

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


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/6/16 11:01:00 [显示全部帖子]

若多表加载,多表事件,如独占式编辑,该如何写?

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


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/6/16 11:23:00 [显示全部帖子]


如示例:
Select Case e.Sender.Name
     Case "Button1" 
If DataTables.Contains("基本资料") = False Then
    DataTables.Load("基本资料|挂号表|窗口列表项目|病人扫描资料库|身份证籍贯编码")
End If
DataTables("基本资料").GlobalHandler.AfterLoad = True

DataTables("基本资料").GlobalHandler.DataColChanged = True
DataTables("挂号表").GlobalHandler.DataColChanged = True
 
DataTables("基本资料").GlobalHandler.CurrentChanged= True
DataTables("挂号表").GlobalHandler.CurrentChanged = True

DataTables("基本资料").GlobalHandler.PrepareEdit= True
DataTables("挂号表").GlobalHandler.PrepareEdit = True 
      
DataTables("基本资料").GlobalHandler.DataRowAdding = True
DataTables("挂号表").GlobalHandler.DataRowAdding = True   

DataTables("基本资料").GlobalHandler.DoubleClick = True
DataTables("挂号表").GlobalHandler.DoubleClick = True            
    
Forms("挂号收费").Open()
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询