主题：两个表通过三个关联列合并后，形成新表，请问：加一句什么代码做到某个条件下自动求和？

 设置分组统计，看完 使用指南->统计数据

http://www.foxtable.com/help/topics/0158.htm

 改一下

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        For Each f As String In dlg.FileNames
           
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
           
            For Each s As object In Wb.WorkSheets
                Dim ip As New Importer
                ip.SourcePath = f
                ip.SourceTableName = s.Name & "$"
                ip.NewTableName = s.Name & Format(Date.Now, "yyyyMMddHHmmssfff")
                ip.Format = "Excel"
                ip.Import()
            Next
        Next
    catch ex As exception
       
    finally
        app.quit
    End try
End If

 重复的名字不行啊

 要么你就用合并，不要用导入

http://www.foxtable.com/help/topics/0685.htm

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        For Each f As String In dlg.FileNames
           
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
           
            For Each s As object In Wb.WorkSheets
                Dim ip As New Importer
                ip.SourcePath = f
                ip.SourceTableName = s.Name & "$"
                ip.NewTableName = s.Name 

                ip.Format = "Excel"
                ip.Import()
            Next
        Next
    catch ex As exception
       
    finally
        app.quit
    End try
End If

或者

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        For Each f As String In dlg.FileNames
           
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
           
            For Each s As object In Wb.WorkSheets
                Dim ip As New Importer
                ip.SourcePath = f
                ip.SourceTableName = s.Name & "$"
                ip.NewTableName = "表C"
                ip.Format = "Excel"
                ip.Import()
            Next
        Next
    catch ex As exception
       
    finally
        app.quit
    End try
End If