请帮助解决？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮助解决？

共有7594人关注过本帖树形打印复制链接主题：请帮助解决？

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/16 9:27:00 [显示全部帖子]

以下是引用lyfxybc在2013-2-15 18:50:00的发言：
我这里的合并是指1、2、3列、1、4、5列、1、6、7列分别输出3个access数据库，再把他们合并到一个数据表中。并不是指累加。我不想用输出access的方法合并。

二楼的方法可行，或者直接编写一个简单的代码填充也可以，楼主你的意思是怎样？不是合并各个列的数据，然后写入到一个表么？

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/17 12:10:00 [显示全部帖子]

这样编写代码就行了。

For Each r As Row In Tables("表A").Rows
    Dim fdr As DataRow = DataTables("表B").Find("第一列 = '" & r("品号") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").AddNew
        fdr("第一列") = r("品号")
    End If
    fdr("第二列") = r("第一列") & r("第三列") & r("第五列")
    fdr("第三列") = r("第二列") & r("第四列") & r("第六列")
Next

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/18 8:51:00 [显示全部帖子]

明白了，代码这样写。

Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "品号,第一列,第二列" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.DataCols = "第一列,第二列,第三列" '指定数据接收列
f.Fill() '填充数据

f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "品号,第三列,第四列" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.DataCols = "第一列,第二列,第三列" '指定数据接收列
f.Fill() '填充数据

f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "品号,第五列,第六列" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.DataCols = "第一列,第二列,第三列" '指定数据接收列
f.Fill() '填充数据

下一主题 >> << 上一主题

主题：请帮助解决？