两个表通过三个关联列合并后，形成新表，请问：加一句什么代码做到某个条件下自动求和？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两个表通过三个关联列合并后，形成新表，请问：加一句什么代码做到某个条件下自动求和？

共有6013人关注过本帖树形打印复制链接主题：两个表通过三个关联列合并后，形成新表，请问：加一句什么代码做到某个条件下自动求和？

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 21:40:00 [显示全部帖子]

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")

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 21:43:00 [显示全部帖子]

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

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 21:58:00 [显示全部帖子]

以下是引用xrz在2015/3/26 21:56:00的发言：
老师，导入Excel文件并产生固定TableName的那两段代码都提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。帮我看看问题在哪?

测试了下，代码没问题。

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 22:08:00 [显示全部帖子]

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

有点甜

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 22:30:00 [显示全部帖子]

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

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

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/27 9:22:00 [显示全部帖子]

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then

    For Each f As String In dlg.FileNames
        Dim App As New MSExcel.Application
        try
            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 = "表Cd"
                ip.Format = "Excel"
                app.quit
                ip.Import()
            Next
        catch ex As exception
            app.quit

        End try
    Next

End If