Foxtable(狐表)用户栏目专家坐堂 → 如何实现这样的主流单元格按钮?


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

主题:如何实现这样的主流单元格按钮?

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


加好友 发短信
等级:三尾狐 帖子:778 积分:7463 威望:0 精华:0 注册:2009/9/7 10:55:00
如何实现这样的主流单元格按钮?  发帖心情 Post By:2013/2/12 19:59:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 

 

如何实现上表中的操作列中的明细按钮?

 

点击明细按钮后会出现明细数据

[此贴子已经被作者于2013-2-12 20:05:00编辑过]

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


加好友 发短信
等级:童狐 帖子:268 积分:2307 威望:0 精华:0 注册:2010/3/26 14:08:00
  发帖心情 Post By:2013/2/12 20:21:00 [只看该作者]

http://www.foxtable.com/help/topics/2387.htm

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


加好友 发短信
等级:三尾狐 帖子:778 积分:7463 威望:0 精华:0 注册:2009/9/7 10:55:00
  发帖心情 Post By:2013/2/12 20:42:00 [只看该作者]

操作列中的明细二字不是按钮,而是文字,但也能实现点击单元格后出现明细数据。

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


加好友 发短信
等级:童狐 帖子:268 积分:2307 威望:0 精华:0 注册:2010/3/26 14:08:00
  发帖心情 Post By:2013/2/13 12:08:00 [只看该作者]

在列的单击事件中写

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


加好友 发短信
等级:三尾狐 帖子:778 积分:7463 威望:0 精华:0 注册:2009/9/7 10:55:00
  发帖心情 Post By:2013/2/14 9:45:00 [只看该作者]

可以指点一下吗?用哪个事件?万分感谢!

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/2/14 10:49:00 [只看该作者]

如果只是想查看明细,何不直接用关联表来解决?

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


加好友 发短信
等级:三尾狐 帖子:778 积分:7463 威望:0 精华:0 注册:2009/9/7 10:55:00
  发帖心情 Post By:2013/2/14 11:00:00 [只看该作者]

不喜欢关联表。

这个更人性化。

我想问这个如何实现?


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/2/14 17:53:00 [只看该作者]

主表click事件:

If e.col.name = "操作" Then
    Select Case e.Table.Current("品名规格")
        Case "371A"
            MainTable = Tables("XX明细")
            Tables("XX明细").filter = ("品名规格 = '371A'")
        Case Else
            Return
    End Select
End If

 

更为通用的代码:

 

If e.col.name = "操作" Then
    Dim s As String = e.Table.Current("品名规格")   
    MainTable = Tables("XX明细")
    Tables("XX明细").filter = ("品名规格 = '" & s & "'")   
End If

 

已经验证,但用无妨。

 

温馨提示:

      表的单击事件,不区分左右键,千万不要把删除、修改之类的代码或者负荷太重的代码写在表的单击事件中了,不然将后悔莫及。

[此贴子已经被作者于2013-2-14 19:06:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wjl-se
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
  发帖心情 Post By:2013/2/14 18:00:00 [只看该作者]

主流? CellButton行不?


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/16 11:15:00 [只看该作者]

 楼主,这个简单的。点击明细的时候弹出一个窗口就行了,窗口里筛选出对应的数据。

 具体问题,你就上传个数据例子吧。

 回到顶部
总数 13 1 2 下一页