Foxtable(狐表)用户栏目专家坐堂 → 多表数据提取


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

主题:多表数据提取

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


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

直接用filler填充即可。设置 ExcludeExistValue 为true

 

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

 


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


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

以下是引用gslxgl在2014-6-3 15:34:00的发言:
这么简单啊,但是提取来的数据全部重复,而且不正确,是什么原因

 

不可能错,用下面的代码

 

Dim f As New Filler
f.SourceTable = DataTables("表1") '指定数据来源
f.SourceCols = "A" '指定数据来源列
f.DataTable = DataTables("表3") '指定数据接收表
f.DataCols = "C" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("表2") '指定数据来源
f.SourceCols = "B" '指定数据来源列
f.DataTable = DataTables("表3") '指定数据接收表
f.DataCols = "C" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据


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


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

 不明白你的意思,请上传例子说明。

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


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

合并不重复的数据可以参考这里,如果是内部表,就不需要设置数据源

 

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

 


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


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

以下是引用gslxgl在2014-6-3 16:41:00的发言:
在你发来的代码中,直接加一行排除某列重复值代码可以吗?怎么加啊

 

不能直接加,你只能用10楼的方法,通过find的方法判断是否重复

 

If DataTables("员工").Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then


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


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

以下是引用gslxgl在2014-6-3 16:44:00的发言:

哎!前面的代码要用,还要排除某列的重复值后建立一对多的关联呢

 

 

认真看10楼的帮助文档,做不好,上传例子


 回到顶部