主题：[求助]点击某个单元格弹出信息框

在需求明细表的需求编号列单击，然后弹出这个需求编号的相关信息。

比如，需求编号201412002，然后点击这个需求编号，弹出这个需求编号201412002的相关信息表

在CellButtonClick代码如下：

If e.Col.Name = "需求编号" Then   
    Forms("需求状态直白").Open()
End If

 

可是为什么没有弹出呢？注：窗口“需求状态直白”是模式窗口。

 

列名不对吧, 所以IF条件没成立.没进入到里面的代码. 你调试一下看看

换一个事件   用

Click

晕,眼瞎,居然没看到用的是 CellButtonClick

哦。我应该做的效果是单击需求编号，然后弹出信息框。而不是点击后面的cell按钮。

那应该在click写代码。

If e.Col.Name = "需求编号" Then   
    Forms("需求状态直白").Open()
End If

 

问题有2个。

1.现在我一点击某一个需求编号，会弹出包括所有需求编号的信息框，应该是指弹出这一个信息框。

2.弹出信息框之后，为什么需求明细表变为了一片白，应该也显示才行。

1、你代码怎样写的？

 

2、如果你的窗口放了一个表控件，如果绑定了明细表，又不设置成副本的话，主表就被剪切过去了

click代码如下：

If e.Col.Name = "需求编号" Then   
    DataTables("需求明细表").Find("需求编号 = '" & e.Table.Current("需求编号") & "'")
    Forms("需求状态直白").Open()
End If

 

我把绑定的需求明细表设为副本了，这样不会覆盖之前的表了。

 你说的弹出消息框什么意思？

 

 是想说，弹出的窗口，表控件里，只显示一个编号的数据？

对的。只显示点击的需求编号的数据。而不是把所有的需求编号的数据都显示出来。

点击需求编号2014002，那么只弹出2014002的数据。

 在窗口的afterLoad事件对表控件筛选。

 

 e.Form.Controls("Table1").Table.Filter = "编号 = '" & Tables("主表").Current("编号") & "'"