标题：请问如何针对表1、表2中相同的项目进行合计
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:book1.rar |
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
请问如何对表1、表2中代码相同、项目名称相同的数据进行合计后放在另外一张表上
就是上面的两张表（附件已上传），导入foxtable中，然后将代码相同、项目名称相同的数据进行合计后放在另外一张表上中，同样保留有代码和项目名称
'1、导入：
Dim ip As New Importer
ip.SourcePath = "c:\book1.xls" '指定数据文件
ip.SourceTableName = "表1" '指定要导入的表
ip.NewTableName ="表1" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()
Dim ip1 As New Importer
ip1.SourcePath = "c:\book1.xls" '指定数据文件
ip1.SourceTableName = "表2" '指定要导入的表
ip1.NewTableName ="表2" '导入后的表名
ip1.Format = "Excel" '指定导入格式
ip1.Import()
'2、自己设计好 表3：
'3、充填：：：：：：：：：
Dim f As New Filler
f.SourceTable = DataTables("表1") '指定数据来源
f.SourceCols = "代码" '指定数据来源列
f.DataTable = DataTables("表3") '指定数据接收表
f.DataCols = "代码" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据
Dim f1 As New Filler
f1.SourceTable = DataTables("表2") '指定数据来源
f1.SourceCols = "代码" '指定数据来源列
f1.DataTable = DataTables("表3") '指定数据接收表
f1.DataCols = "代码" '指定数据接收列
f1.ExcludeExistValue = True
f1.Fill() '填充数据
'4、计算：：：：：：：
Dim dr1,dr2 As DataRow
For Each dr As DataRow In DataTables("表3").datarows
dr1 = DataTables("表1").Find("代码 = '" & dr("代码") & "'")
dr2 = DataTables("表2").Find("代码 = '" & dr("代码") & "'")
If dr1 IsNot Nothing And dr2 IsNot Nothing
dr("项目一") = dr1("项目一") + dr2("项目一")
dr("项目二") = dr1("项目二") + dr2("项目二")
dr("项目三") = dr1("项目三")
dr("项目四") = dr1("项目四") + dr2("项目四")
dr("项目五") = dr1("项目五") + dr2("项目五")
dr("项目七") = dr2("项目七")
ElseIf dr1 IsNot Nothing And dr2 Is Nothing
dr("项目一") = dr1("项目一")
dr("项目二") = dr1("项目二")
dr("项目三") = dr1("项目三")
dr("项目四") = dr1("项目四")
dr("项目五") = dr1("项目五")
ElseIf dr1 Is Nothing And dr2 IsNot Nothing
dr("项目一") = dr2("项目一")
dr("项目二") = dr2("项目二")
dr("项目四") = dr2("项目四")
dr("项目五") = dr2("项目五")
dr("项目七") = dr2("项目七")
End If
Next
非常感谢！！！