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


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

主题:任务栏按钮点击

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
任务栏按钮点击  发帖心情 Post By:2016/7/5 10:15:00 [显示全部帖子]

任务栏上有三个标签:入库管理;库存管理;出库管理,如何与三个窗口(入库表,库存表,出库表),关联,点击它们就显示相应的窗口表:
select case e.link.name
         case "入库管理"
               forms("入库表").show
case "库存管理"
               forms("库存表").show
case "出库管理"
               forms("出库表").show
end select
这个代码没有作用?

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/5 10:28:00 [显示全部帖子]

select case e.link.name
         case "入库管理"

          msgbox(e.link.name)

          msgbox(e.link.Text)

               forms("入库表").show
case "库存管理"

          msgbox(e.link.name)

          msgbox(e.link.Text)

               forms("库存表").show   
case "出库管理"

         msgbox(e.link.name)

          msgbox(e.link.Text)

               forms("出库表").show
end select
是这样吗?初学者,红袍老师能不能说明是什么含义?

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/5 10:30:00 [显示全部帖子]

还有如何让任务栏有一个小按钮控制他的显示与隐藏?

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/5 10:42:00 [显示全部帖子]

老师,没有作用,如点击出库管理,弹出一个提示框:出库管理
msgbox(e.link.name)
msgbox(e.link.text)
Select Case e.link.name
    Case "入库管理"
        Forms("入库表").show
    Case "库存管理"
        Forms("库存表").show
    Case "出库管理"
        Forms("出库表").show
        
End Select

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/5 10:47:00 [显示全部帖子]

还是一样

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


加好友 发短信
等级:三尾狐 帖子:705 积分:4897 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/5 10:53:00 [显示全部帖子]

成了

 回到顶部