- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表A某一列和表B某一列，两列的数据合并到表C的某一列？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99094)
-- 发布时间：2017/4/12 16:31:00
-- [求助]表A某一列和表B某一列，两列的数据合并到表C的某一列？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
各位大神求教啊！表A某一列和表B某一列，两列的数据怎么合并到表C的某一列？
-- 发布时间：2017/4/12 17:22:00
--
Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "第一列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
f = New Filler
f.SourceTable = DataTables("表B") \'指定数据来源
f.SourceCols = "第二列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
-- 发布时间：2017/4/13 14:54:00
--
谢谢大神，问题解决了，本人菜鸟一名，让您见笑了。
-- 发布时间：2017/4/14 14:17:00
-- 表A某一列和表B某一列，两列的数据合并到表C的某一列？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:填充数据.zip |
先谢谢您在百忙之中，回复我得帖子，并帮我解决问题，可出现了一个新问题：
Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "第一列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
f = New Filler
f.SourceTable = DataTables("表B") \'指定数据来源
f.SourceCols = "第二列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "第一列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
f = New Filler
f.SourceTable = DataTables("表B") \'指定数据来源
f.SourceCols = "第二列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
这段代码是填充了，可是如果某列的内容是重复的，这样填充到表C的内容会自动清除重复的，只填充一个，怎么让表A和表B某列的内容全部填充进去。
-- 发布时间：2017/4/14 14:39:00
--
Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "第一列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.Distinct= False
f.Fill() \'填充数据
f = New Filler
f.SourceTable = DataTables("表B") \'指定数据来源
f.SourceCols = "第一列" \'指定数据来源列
f.DataTable = DataTables("表c") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.Distinct= False
f.Fill() \'填充数据
-- 发布时间：2017/4/14 16:11:00
--
非常感谢
-- 发布时间：2017/4/14 23:06:00
--
色老师，如果是A表中第一列和第二列合并到B表中的第一列呢？
例：2017 03 到B表中为201703
再就是这个代码写在窗口的一个按钮的的单击事件中行不行？不行的话如何触发？
[此贴子已经被作者于2017/4/14 23:09:48编辑过]
-- 发布时间：2017/4/14 23:39:00
--
DataTables("表A").DataCols.Add("aa",Gettype(String),"iif(第一列 is null,\'\',第一列) + iif(第二列 Is null,\'\',第二列)")
Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "aa" \'指定数据来源列
f.DataTable = DataTables("表B") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.Distinct= False
f.Fill
-- 发布时间：2017/4/15 9:27:00
--
以下是引用hqsoft在2017/4/14 23:06:00的发言：
色老师，如果是A表中第一列和第二列合并到B表中的第一列呢？
色老师，如果是A表中第一列和第二列合并到B表中的第一列呢？
例：2017 03 到B表中为201703
再就是这个代码写在窗口的一个按钮的的单击事件中行不行？不行的话如何触发？
[此贴子已经被作者于2017/4/14 23:09:48编辑过]
For Each dr As DataRow In DataTables("表A").DataRows
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("第一列") = dr("第一列") & dr("第二列")
Next
-- 发布时间：2017/4/15 10:28:00
--
都是大师呀，哪天我也能写出这样的代码
