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

Dim g As New GroupTableBuilder("hju", DataTables("ikju"))
g.Groups.AddDef("管理员")
g.Groups.AddDef("单价")
g.Totals.AddDef("数量")
g.VerticalTotal = True
g.Build()

g = New GroupTableBuilder("wefd", DataTables("bhji"))
g.Groups.AddDef("仓位")
g.Groups.AddDef("单价")
g.Groups.AddDef("管理员")
g.Totals.AddDef("数量")
g.VerticalTotal = True
g.Build()
MainTable = Tables("wefd")

老师，这两段都提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。

Dim g As New GroupTableBuilder("hju", DataTables("ikju"))
g.Groups.AddDef("管理员")
g.Groups.AddDef("单价")
g.Totals.AddDef("数量")
g.VerticalTotal = True
g.Build()

g = New GroupTableBuilder("wefd", DataTables("bhji"))
g.Groups.AddDef("仓位")
g.Groups.AddDef("单价")
g.Groups.AddDef("管理员")
g.Totals.AddDef("数量")
g.VerticalTotal = True
g.Build()
MainTable = Tables("wefd")

老师，导入Excel文件并产生固定TableName的那两段代码都提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。帮我看看问题在哪?

 

测试了下，代码没问题。

老师，代码是没问题，但是导入的文件都是各自的名字了，我需要的是：不论导入任何文件，最后都是固定的TableName。因为导入的文件名都是不同的，而后续要执行的代码需要一个固定的TableName.

 看第二段代码。也就是19楼

老师，第二段不能执行。提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。

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

 测试了一下，代码没有问题。

 

 如果有问题的话，你调出任务管理器，在进程那里，把所有的 Excel.exe 进程全部结束。

老师，真的好了。太佩服您了！谢谢! 祝老师一切如意！再点休息哦。晚安。