Foxtable(狐表)用户栏目专家坐堂 → 任务栏按钮点击


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

主题:任务栏按钮点击

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/5 10:18:00 [显示全部帖子]

 加入代码

 

msgbox(e.link.name)

 

msgbox(e.link.Text)


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/5 10:29:00 [显示全部帖子]

写在最前面,看弹出的值是什么。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/5 10:31:00 [显示全部帖子]

以下是引用lk15502在2016/7/5 10:30:00的发言:
还有如何让任务栏有一个小按钮控制他的显示与隐藏?

 

不可以。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/5 10:43:00 [显示全部帖子]

Select Case e.link.name

 

改成

 

Select Case e.link.Text


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/5 10:48:00 [显示全部帖子]

Select Case e.link.text
    Case "入库管理"
        Forms("入库表").show
maintable = Tables("表A")
    Case "库存管理"
        Forms("库存表").show
maintable = Tables("表B")
    Case "出库管理"
        Forms("出库表").show
maintable = Tables("表C")
End Select

 回到顶部