以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  某表从多少表中取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88903)
--  作者：蓝蚂蚁
--  发布时间：2016/8/11 12:04:00
--  某表从多少表中取值
老师麻烦帮解决一下 谢谢 问题：A表 B表 C表 D表 四个表中只有一列（编码），并且编码不重复，现在要实现的功能是D表的编码是从A B C表的编码中自动提取。即A表有编码1、2，B表有编码a、b,C表有编码A、B，则D表编码就是1,2，a,b,A,B，并且A表或B表或C表有更新，则D表也将自动更新。再次感谢！
--  作者：大红袍
--  发布时间：2016/8/11 12:18:00
--  

 参考

 

Dim ts As String() = {"表A", "表B", "表C"}
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
--  作者：蓝蚂蚁
--  发布时间：2016/8/11 12:20:00
--  
谢谢 大红袍老师 真是秒回啊
--  作者：蓝蚂蚁
--  发布时间：2016/8/11 12:23:00
--  
大红袍老师  你这段代码应该写在什么地方
--  作者：大红袍
--  发布时间：2016/8/11 12:27:00
--  
以下是引用蓝蚂蚁在2016/8/11 12:23:00的发言：
大红袍老师  你这段代码应该写在什么地方

 

尽量写到一个按钮里面去吧。
--  作者：蓝蚂蚁
--  发布时间：2016/8/11 12:27:00
--  
好的 谢啦
--  作者：蓝蚂蚁
--  发布时间：2016/8/11 16:46:00
--  
大红袍老师  f.Fill() \'填充数据 里面填什么呢  谢谢
--  作者：大红袍
--  发布时间：2016/8/11 16:48:00
--  
以下是引用蓝蚂蚁在2016/8/11 16:46:00的发言：
大红袍老师  f.Fill() \'填充数据 里面填什么呢  谢谢

 

什么也不用填。
--  作者：蓝蚂蚁
--  发布时间：2016/8/11 16:49:00
--  
不行啊 没有提示错误 D表的“通俗名称”列里面也没有数据。
--  作者：蓝蚂蚁
--  发布时间：2016/8/11 16:51:00
--  
是有数据 但在D表的811行才有 1-810没有数据 是空的