Foxtable(狐表) → 用户栏目 → 专家坐堂 → 某表从多少表中取值


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

主题：某表从多少表中取值
帅哥哟，离线，有人找我吗？
大红袍
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 16:54:00 [只看该作者]

Dim ts As String() = {"表A", "表B", "表C"}
DataTables("表D").DataRows.Clear
For Each t As String In ts
    Dim f As New Filler
    f.SourceTable = DataTables(t)
    f.SourceCols = "编号" '指定数据来源列
    f.DataTable = DataTables("表D") '指定数据接收表
    f.DataCols = "编号" '指定数据接收列
    f.ExcludeExistValue = True
    f.Fill() '填充数据
Next

 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7885 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2016/8/11 17:10:00 [只看该作者]

大红袍老师 我知道问题所在了 是 A B C表里面有空记录  所以才会出现上述的问题  再次感谢

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 17:33:00 [只看该作者]

可以筛选掉空记录

 

 

Dim ts As String() = {"表A", "表B", "表C"}
DataTables("表D").DataRows.Clear
For Each t As String In ts
    Dim f As New Filler
    f.SourceTable = DataTables(t)
    f.SourceCols = "编号" '指定数据来源列
    f.DataTable = DataTables("表D") '指定数据接收表
    f.DataCols = "编号" '指定数据接收列
    f.ExcludeExistValue = True
    'f.ExcludeNullValue = True
    f.Filter = "某列 is not null"
    f.Fill() '填充数据
Next
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7885 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2016/8/11 17:35:00 [只看该作者]

温暖 大红袍老师 你的回答和回复速度使我非常温暖  谢谢 真的非常感谢！！！！！！

 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 4 次数据查询