Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]双击表调用窗口问题（已解决）


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

主题：[求助]双击表调用窗口问题（已解决）
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7610 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]双击表调用窗口问题（已解决）  发帖心情 Post By：2014/12/28 12:53:00 [显示全部帖子]

表的点击事件是针对表中有数据。如果表中无数据，即空表。如何用代码实现不管表中是否有数据（包括无数据）都能通过双击事件，打开另一个窗口。谢谢！
[此贴子已经被作者于2014-12-28 16:10:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7610 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]双击表调用窗口问题  发帖心情 Post By：2014/12/28 15:13:00 [显示全部帖子]

还是不行。代码如下：

全局代码：
Public Sub 表A_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub

项目：CurrentTableChanged 代码：
Select Case CurrentTable.Name
    Case "辅助资料基本表"
        StatusBar.Message1 = "双击辅助资料基本表添加,编辑及删除患者"
        AddHandler Tables("辅助资料基本表").Grid.Doubleclick, addressof 表A_DoubleClick
    Case "辅助资料"
        StatusBar.Message1 = "双击辅助资料对患者信息进行编辑,添加及删除等处理"
        AddHandler Tables("辅助资料").Grid.Doubleclick, addressof 表A_DoubleClick
    Case "辅助资料_Table1"
        StatusBar.Message1 = "双击辅助资料对患者信息进行编辑,添加及删除等处理"
        AddHandler Tables("辅助资料_table1").Grid.Doubleclick, addressof 表A_DoubleClick
End Select

好像没有附事件



[此贴子已经被作者于2014-12-28 15:15:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7610 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2014/12/28 15:16:00 [显示全部帖子]

事件放在全局代码里面？因为不同的表显示不同的窗口。
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7610 威望：0 精华：0 注册：2010/4/12 12:23:00 		[求助]双击表调用窗口问题  发帖心情 Post By：2014/12/28 15:24:00 [显示全部帖子]

例如：当双击“辅助资料基本表”时，显示窗口“辅助资料基本信息录入”。而双击“辅助资料_Table1”时，显示窗口“辅助资料录入”，代码放在哪儿？谢谢！
[此贴子已经被作者于2014-12-28 15:25:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7610 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2014/12/28 15:38:00 [显示全部帖子]

全局代码：
Public Sub 表A_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case CurrentTable.Name
    Case "辅助资料基本表"
        Forms("辅助资料基本信息录入").Open()
    Case "辅助资料"
        Forms("辅助资料录入").Open()
    Case "辅助资料_Table1"
        Forms("辅助资料录入").Open()
End Select
End Sub

后面的绑定事件放在哪儿？是在相应表的doubleclick事件中吗？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
cqlwsam
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1022 积分：7610 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2014/12/28 15:44:00 [显示全部帖子]

我写在currenttablechanged事件中能实现了。谢谢甜大大！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询