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


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/2 11:42:00 [显示全部帖子]

1、你代码怎样写的?

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/2 12:00:00 [显示全部帖子]

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

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/2 14:08:00 [显示全部帖子]

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

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/2 14:31:00 [显示全部帖子]

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

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/2 14:52:00 [显示全部帖子]

 不可能啊,不会做就请上传例子

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/2 15:15:00 [显示全部帖子]

afterload

 

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

 

Click

 

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


 回到顶部