| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 任务栏按钮点击 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87168) |
| -- 作者：lk15502 -- 发布时间：2016/7/5 10:15:00 -- 任务栏按钮点击 任务栏上有三个标签：入库管理；库存管理；出库管理，如何与三个窗口（入库表，库存表，出库表），关联，点击它们就显示相应的窗口表： select case e.link.name case "入库管理" forms("入库表").show case "库存管理" forms("库存表").show case "出库管理" forms("出库表").show end select 这个代码没有作用？
|
| -- 作者：大红袍 -- 发布时间：2016/7/5 10:18:00 -- 加入代码
msgbox(e.link.name)
msgbox(e.link.Text) |
| -- 作者：lk15502 -- 发布时间：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 是这样吗？初学者，红袍老师能不能说明是什么含义？
|
| -- 作者：大红袍 -- 发布时间：2016/7/5 10:29:00 -- 写在最前面，看弹出的值是什么。 |
| -- 作者：lk15502 -- 发布时间：2016/7/5 10:30:00 -- 还有如何让任务栏有一个小按钮控制他的显示与隐藏？ |
| -- 作者：大红袍 -- 发布时间：2016/7/5 10:31:00 -- 以下是引用lk15502在2016/7/5 10:30:00的发言：
还有如何让任务栏有一个小按钮控制他的显示与隐藏？
不可以。 |
| -- 作者：lk15502 -- 发布时间：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 |
| -- 作者：大红袍 -- 发布时间：2016/7/5 10:43:00 -- Select Case e.link.name
改成
Select Case e.link.Text |
| -- 作者：lk15502 -- 发布时间：2016/7/5 10:47:00 -- 还是一样 |
| -- 作者：大红袍 -- 发布时间：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
|