主题：请问如何针对表1、表2中相同的项目进行合计

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

点击浏览该文件:book1.rar

 

 

 

此主题相关图片如下：1.jpg

 

  

 

此主题相关图片如下：2.jpg

 

请问如何对表1、表2中代码相同、项目名称相同的数据进行合计后放在另外一张表上

合计到哪？ 第一张还是第二张表？？ 是用Excel做吗？？

合计到另外一张表上，将这两张表的数据导入到foxtable中，这样要快些，数据量有点大

这个简单，给个例子帮你搞定。（做例子麻烦呀）

就是上面的两张表（附件已上传），导入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

注意： 将参与计算的列都给为数字型···

非常感谢！！！