以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]双击表调用窗口问题（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62237)
--  作者：cqlwsam
--  发布时间：2014/12/28 12:53:00
--  [求助]双击表调用窗口问题（已解决）
表的点击事件是针对表中有数据。如果表中无数据，即空表。如何用代码实现不管表中是否有数据（包括无数据）都能通过双击事件，打开另一个窗口。谢谢！
[此贴子已经被作者于2014-12-28 16:10:17编辑过]
--  作者：有点甜
--  发布时间：2014/12/28 14:18:00
--  

全局代码

 

Public Sub 表A_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
    msgbox("表A")
End Sub

 

 

绑定事件

 

AddHandler Tables("表a").Grid.Doubleclick, addressof 表A_DoubleClick
--  作者：有点甜
--  发布时间：2014/12/28 14:46:00
--  

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

 
--  作者：cqlwsam
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2014/12/28 15:15:00
--  
 你要往里面写绑定的事件里面写代码啊。
--  作者：cqlwsam
--  发布时间：2014/12/28 15:16:00
--  
事件放在全局代码里面？因为不同的表显示不同的窗口。
--  作者：有点甜
--  发布时间：2014/12/28 15:16:00
--  
Public Sub 表A_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case CurrentTable.Name
    Case "辅助资料基本表"
        StatusBar.Message1 = "双击辅助资料基本表添加,编辑及删除患者"
    Case "辅助资料"
        StatusBar.Message1 = "双击辅助资料对患者信息进行编辑,添加及删除等处理"       
    Case "辅助资料_Table1"
        StatusBar.Message1 = "双击辅助资料对患者信息进行编辑,添加及删除等处理"    
End Select
End Sub

 
--  作者：cqlwsam
--  发布时间：2014/12/28 15:24:00
--  [求助]双击表调用窗口问题
例如：当双击“辅助资料基本表”时，显示窗口“辅助资料基本信息录入”。而双击“辅助资料_Table1”时，显示窗口“辅助资料录入”，代码放在哪儿？谢谢！
[此贴子已经被作者于2014-12-28 15:25:23编辑过]
--  作者：有点甜
--  发布时间：2014/12/28 15:28:00
--  
 看8楼，写在 表A_DoubleClick 事件里面啊
--  作者：cqlwsam
--  发布时间：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事件中吗？谢谢！