Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师帮忙看看这个怎么弄


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

主题：老师帮忙看看这个怎么弄
帅哥哟，离线，有人找我吗？
hebxtshhyj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：155 积分：1488 威望：0 精华：0 注册：2017/1/31 17:27:00 		老师帮忙看看这个怎么弄  发帖心情 Post By：2018/6/7 23:02:00 [只看该作者]

窗口中有目录树，表，和修改按钮3个控件，我想要实现的是：点击修改按钮能判断之前选择的是目录树还是表，如果是表，打开修改表记录窗口，如果是目录树，打开修改目录树窗口，请问老师这个该怎么去判断。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：155 积分：1488 威望：0 精华：0 注册：2017/1/31 17:27:00 		  发帖心情 Post By：2018/6/7 23:08:00 [只看该作者]

夜已深，老师还在回复，辛苦了。

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


加好友 发短信
等级：幼狐 帖子：155 积分：1488 威望：0 精华：0 注册：2017/1/31 17:27:00 		  发帖心情 Post By：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

窗口绑定的是关联表，
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/8 22:24:00 [只看该作者]

到关联表对应的子表的表事件click设置

if e.table.name = "父表.子表" andalso Forms("窗口1").opened
vars("当前控件") = "Table1"
end if
 回到顶部
帅哥哟，离线，有人找我吗？
hebxtshhyj
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：155 积分：1488 威望：0 精华：0 注册：2017/1/31 17:27:00 		  发帖心情 Post By：2018/6/8 22:38:00 [只看该作者]

解决了，为什么先前那个代码不可以呢？非要重新再指定他的名称呢？

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


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/8 22:42:00 [只看该作者]

表格比较特殊，不支持这些事件

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