Foxtable(狐表)用户栏目专家坐堂 → 关于关联表问题。


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

主题:关于关联表问题。

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


加好友 发短信
等级:婴狐 帖子:14 积分:199 威望:0 精华:0 注册:2012/6/14 10:47:00
关于关联表问题。  发帖心情 Post By:2018/6/19 9:13:00 [只看该作者]


目前想做一个关联表的事宜,但是遇到问题,由于foxtable无法实现到表的列与行做到关联。
例子:
表C数据有A.B.C   3行数据



图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180619091116.png
图片点击可在新窗口打开查看
表B。有A.B.C  3列数据



图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180619091122.png
图片点击可在新窗口打开查看

做一个关联想在表B输入A.B.C 3列数据的时候。在关联表下面显示出表C的A.B.C 3行数据。



图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180619091126.png
图片点击可在新窗口打开查看


请问如何操作才可以实现?
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/6/19 9:14:33编辑过]

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


加好友 发短信
等级:婴狐 帖子:14 积分:199 威望:0 精华:0 注册:2012/6/14 10:47:00
  发帖心情 Post By:2018/6/19 9:42:00 [只看该作者]

求大神帮帮忙解答


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/19 10:33:00 [只看该作者]

关联无法做到你所需要的。

 

如果要动态设置表格的显示内容,可以在currentChanged事件设置filter筛选数据。


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


加好友 发短信
等级:婴狐 帖子:14 积分:199 威望:0 精华:0 注册:2012/6/14 10:47:00
  发帖心情 Post By:2018/6/19 11:01:00 [只看该作者]

请问有没有具体的操作方法呢??求

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/19 11:10:00 [只看该作者]

做一个窗口,放入table控件,修改列内容的时候、切换行的时候,合成条件设置table的filter属性。

 

具体问题,上传实例测试。


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


加好友 发短信
等级:婴狐 帖子:14 积分:199 威望:0 精华:0 注册:2012/6/14 10:47:00
  发帖心情 Post By:2018/6/19 15:13:00 [只看该作者]

请问您可以帮忙写个代码来看看嘛?按照我上面的图片来举例,
我就是做一个窗口。然后新增一个table。然后后续要怎么设置?
我就是想在表B。的其中2列的的某行数据,输入数据后,在新增的窗口中显示出表C的内容。
如在表B的第一,第二列输入1.2,
表C有第一列有2行数据和表B的2行数据匹配
然后在表B窗口的表中显示出,精准匹配的表C的所有数据


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/19 15:50:00 [只看该作者]

比如代码

 

Dim cr As Row = Tables("表B").Current

Dim filter As String = "第一列 in ('" & cr("第一列") & "', '" & cr("第二列") & "')"

msgbox(filter)

e.form.controls("table1").Table.Filter = filter


 回到顶部