Foxtable(狐表)用户栏目专家坐堂 → [求助]点击某个单元格弹出信息框


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

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

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
[求助]点击某个单元格弹出信息框  发帖心情 Post By:2014/12/2 11:00:00 [显示全部帖子]

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

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

在CellButtonClick代码如下:

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

 

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

 


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/12/2 11:38:00 [显示全部帖子]

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

那应该在click写代码。

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

 

问题有2个。

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

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


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/12/2 11:58:00 [显示全部帖子]

click代码如下:

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

 

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


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/12/2 12:05:00 [显示全部帖子]

以下是引用有点甜在2014-12-2 12:00:00的发言:

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

 

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

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

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


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/12/2 14:28:00 [显示全部帖子]

以下是引用有点甜在2014-12-2 14:08:00的发言:

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

 

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

e.Form.Controls("Table1").Table.Filter = "需求编号 = '" & Tables("需求明细表").Current("需求编号") & "'"

不论单击哪一个需求编号,只显示第一个需求编号。这是怎么回事呢?


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/12/2 14:42:00 [显示全部帖子]

以下是引用有点甜在2014-12-2 14:31:00的发言:

红色代码,换成 窗口名_表控件名 如 窗口1_Table1

 

e.Form.Controls("Table1").Table.Filter = "需求编号 = '" & Tables("需求明细表").Current("需求编号") & "'"

e.Form.Controls("Table1").Table.Filter = "需求编号 = '" & Tables("需求状态直白_table1").Current("需求编号") & "'"

感觉还是不对。


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/12/2 14:58:00 [显示全部帖子]

以下是引用有点甜在2014-12-2 14:52:00的发言:
 不可能啊,不会做就请上传例子

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:临时版本跟踪系统26.rar


 


 回到顶部