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


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

主题:老师帮忙看看这个怎么弄

帅哥哟,离线,有人找我吗?
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


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望: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


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

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

 回到顶部