以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗体上的table点击后，能否根据点击不同表，设置不同的代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44036)
--  作者：浙江仔
--  发布时间：2013/12/21 10:27:00
--  [求助]窗体上的table点击后，能否根据点击不同表，设置不同的代码
窗体有不同的table，标签lable
点击不同的table，标签显示table的name

e.Sender.Name

我用了窗体的click事件，messagebox.show(e.Sender.Name),就是点击table没有反应

能实现吗？怎么实现？
--  作者：狐狸爸爸
--  发布时间：2013/12/21 11:01:00
--  

用项目事件CurrentTableChanged：

 

if forms("xxx").Opened Then

   Forms("xxx").Controls("Label1").TExt = CurrentTable.Name

End if
--  作者：浙江仔
--  发布时间：2013/12/21 11:54:00
--  
我后来是这么解决的：

定义全局变量Currtable   string

然后在需要在窗体使用的表格添加Click事件：Vars("currTable") = e.Table.Name

然后窗体添加TimerTick：（窗体启动时启动Timer：e.Form.TimerEnabled = True ）

Select Case Vars("currTable")
    Case "关联表1"
        ’作用代码……
        
    Case "关联表2"
        
         ’作用代码……
        
End Select