见附件。

如何把表一和表二按身份证号码合并生成表三（表三包括表一和表二的部分字段）？

身份证号码是唯一的。

表一和表二的人数不同，有的情况表一人数多，有的情况表二人数多。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:合并统计.xls

执行如下代码

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("表二"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("单位名称") \'根据品名分组
bd1.Groups.AddDef("员姓名") \'根据型号分组
bd1.Groups.AddDef("身份证号") \'根据型号分组
bd1.Totals.AddDef("应扣养老保险") \'对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表1",DataTables("表一"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("单位名称") \'根据品名分组
bd2.Groups.AddDef("姓名") \'根据型号分组
bd2.Groups.AddDef("身份证号") \'根据型号分组
bd2.Totals.AddDef("实扣养老保险") \'对数量进行统计
dt2 = bd2.BuildDataSource()

Dim nms1 As String() = {"单位名称","员姓名","身份证号"} \'指定连接列
Dim nms2 As String() = {"单位名称","姓名","身份证号"} \'指定连接列
dt1.Combine(nms1,dt2,nms2) \'将销售统计数据组合到进货统计数据
dt1.Show("统计表1") \'显示统计结果

http://www.foxtable.com/webhelp/scr/2305.htm

这么快就出来了？

飞一般的速度啊！

执行如下代码

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("表二"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("单位名称") \'根据品名分组
bd1.Groups.AddDef("员姓名") \'根据型号分组
bd1.Groups.AddDef("身份证号") \'根据型号分组
bd1.Totals.AddDef("应扣养老保险") \'对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表1",DataTables("表一"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("单位名称") \'根据品名分组
bd2.Groups.AddDef("姓名") \'根据型号分组
bd2.Groups.AddDef("身份证号") \'根据型号分组
bd2.Totals.AddDef("实扣养老保险") \'对数量进行统计
dt2 = bd2.BuildDataSource()

Dim nms1 As String() = {"单位名称","员姓名","身份证号"} \'指定连接列
Dim nms2 As String() = {"单位名称","姓名","身份证号"} \'指定连接列
dt1.Combine(nms1,dt2,nms2) \'将销售统计数据组合到进货统计数据
dt1.Show("统计表1") \'显示统计结果

http://www.foxtable.com/webhelp/scr/2305.htm

不明白你的意思，目前遇到什么问题？需要什么效果？