Dim
mg As New Merger
mg.ConnectionName = "nwnd" '指定数据源名称
mg.SourceTableName = "订单1" '指定要合并的表
mg.DataTableName = "订单2" '指定接收数据的表
mg.Merge() '开始合并
只合并订单1的第一列到订单2的第三列,其他列不合并,这个代码怎么写?

此主题相关图片如下:未命名.bmp
DataTables("表A").DeleteFor("")
Dim mg As New Merger
mg.C '指定数据源名称
mg.SourceTableName = "表A" '指定要合并的表
mg.DataTableName = "表A" '指定接收数据的表
mg.Fields="第一列"
mg.Merge() '开始合并
[此贴子已经被作者于2010-9-29 13:44:32编辑过]
DataTables("表A").DeleteFor("")
Dim mg As New Merger
mg.C '指定数据源名称
mg.SourceTableName = "表A" '指定要合并的表
mg.DataTableName = "表A" '指定接收数据的表
mg.FieldMaps.Add("第三列","第一列")
mg.Merge() '开始合并
出现载图

此主题相关图片如下:未命名.bmp
提示的很清楚了,要选择原表、本表中没有的列来指定, 列名相同引起混乱啦····
你把第一列 改为 第一百列 或 第三列 改为 第三百列 就不会出错了。。。。。。

此主题相关图片如下:未命名01.jpg
[此贴子已经被作者于2010-9-29 14:05:20编辑过]