'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
加好友 
发短信
Post By：2011/4/27 13:07:00 [显示全部帖子]
