以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师帮忙看看这个怎么弄  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120139)
--  作者：hebxtshhyj
--  发布时间：2018/6/7 23:02:00
--  老师帮忙看看这个怎么弄
窗口中有目录树，表，和修改按钮3个控件，我想要实现的是：点击修改按钮能判断之前选择的是目录树还是表，如果是表，打开修改表记录窗口，如果是目录树，打开修改目录树窗口，请问老师这个该怎么去判断。
--  作者：有点甜
--  发布时间：2018/6/7 23:06:00
--  

窗口的enter事件写代码处理。

 

Select Case e.sender.name

    case "treeview1", "Table1"

        vars("当前控件") = e.sender.name

End Select

 

按钮代码

 

If vars("当前控件").name = "TreeView1" then

    msgbox(1)

elseIf vars("当前控件").name = "Table1" then

    msgbox(2)

End If
--  作者：hebxtshhyj
--  发布时间：2018/6/7 23:08:00
--  
夜已深，老师还在回复，辛苦了。
--  作者：hebxtshhyj
--  发布时间：2018/6/8 22:05:00
--  
TreeView1能识别，那个table控件怎么不能识别呢？  是写在窗口的全局enter事件中吗？

Select Case e.Sender.name
    Case "TreeView1","Table1"
        vars("当前控件") = e.Sender.name
        message.show(e.Sender.name)
End Select

窗口绑定的是关联表，
--  作者：有点蓝
--  发布时间：2018/6/8 22:24:00
--  
到关联表对应的子表的表事件click设置

if e.table.name = "父表.子表" andalso Forms("窗口1").opened
vars("当前控件") = "Table1"
end if
--  作者：hebxtshhyj
--  发布时间：2018/6/8 22:38:00
--  
解决了，为什么先前那个代码不可以呢？非要重新再指定他的名称呢？
--  作者：有点蓝
--  发布时间：2018/6/8 22:42:00
--  
表格比较特殊，不支持这些事件