表A和表B通过三个关联列合并后，形成新表C，请教老师：加一句什么代码使表C做到某个条件下自动求和？例如下表C中，要求每个“仓库管理员”对应的“数量”分别合计，形成表D的样式。

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

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

老师，我看完了，但是没有“代码输出”按钮呀。我想把这个功能加入下面这段代码里自动统计。

真的，谢谢老师！！！

老师，还有个问题：用代码导入有些Excel文件时代码不能执行。出现如下对话框，这是Excel的版本问题吗？怎么解决？

老师，我是用你帮我写的这段代码导入的，在“打开文件”窗口选择想要打开的文件，因此，文件名不会错呀。

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim book As new XLS.Book(f)
        For Each s As XLS.Sheet In book.Sheets
            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
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 = s.Name & Format(Date.Now, "yyyyMMddHHmmssfff")
                ip.Format = "Excel"
                ip.Import()
            Next
        Next
    catch ex As exception
       
    finally
        app.quit
    End try
End If