- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]点击某个单元格弹出信息框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60839)
-- 发布时间：2014/12/2 11:00:00
-- [求助]点击某个单元格弹出信息框
在需求明细表的需求编号列单击，然后弹出这个需求编号的相关信息。
比如，需求编号201412002，然后点击这个需求编号，弹出这个需求编号201412002的相关信息表
在CellButtonClick代码如下：
If e.Col.Name = "需求编号" Then
Forms("需求状态直白").Open()
End If
可是为什么没有弹出呢？注：窗口“需求状态直白”是模式窗口。
-- 发布时间：2014/12/2 11:09:00
--
列名不对吧, 所以IF条件没成立.没进入到里面的代码. 你调试一下看看
-- 发布时间：2014/12/2 11:15:00
--
换一个事件 用
Click
-- 发布时间：2014/12/2 11:17:00
--
换一个事件 用
Click
-- 发布时间：2014/12/2 11:38:00
--
哦。我应该做的效果是单击需求编号，然后弹出信息框。而不是点击后面的cell按钮。
那应该在click写代码。
If e.Col.Name = "需求编号" Then
Forms("需求状态直白").Open()
End If
问题有2个。
1.现在我一点击某一个需求编号，会弹出包括所有需求编号的信息框，应该是指弹出这一个信息框。
2.弹出信息框之后，为什么需求明细表变为了一片白，应该也显示才行。
-- 发布时间：2014/12/2 11:42:00
--
1、你代码怎样写的？
2、如果你的窗口放了一个表控件，如果绑定了明细表，又不设置成副本的话，主表就被剪切过去了
-- 发布时间：2014/12/2 11:58:00
--
click代码如下：
If e.Col.Name = "需求编号" Then
DataTables("需求明细表").Find("需求编号 = \'" & e.Table.Current("需求编号") & "\'")
Forms("需求状态直白").Open()
End If
我把绑定的需求明细表设为副本了，这样不会覆盖之前的表了。
-- 发布时间：2014/12/2 12:00:00
--
你说的弹出消息框什么意思？
是想说，弹出的窗口，表控件里，只显示一个编号的数据？
-- 发布时间：2014/12/2 12:05:00
--
你说的弹出消息框什么意思？
是想说，弹出的窗口，表控件里，只显示一个编号的数据？
对的。只显示点击的需求编号的数据。而不是把所有的需求编号的数据都显示出来。
点击需求编号2014002，那么只弹出2014002的数据。
-- 发布时间：2014/12/2 14:08:00
--
在窗口的afterLoad事件对表控件筛选。
e.Form.Controls("Table1").Table.Filter = "编号 = \'" & Tables("主表").Current("编号") & "\'"