主题：[求助使用外部数据源的多表统计代码，帮我看一下，总显示是错误

Dim bd1 As New SQLGroupTableBuilder("统计表1","长期医嘱")
bd1.C
bd1.AddTable("长期医嘱","住次ID","住院主表","住次ID")
bd1.AddTable("长期医嘱","项目ID","清单模板","项目ID")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("住次ID") '根据品名分组
bd1.Groups.AddDef("姓名") '根据品名分组
bd1.Groups.AddDef("项目ID") '根据品名分组
bd1.Groups.AddDef("收费项目") '根据品名分组
bd1.Groups.AddDef("项目类别") '根据型号分组
bd1.Groups.AddDef("项目规格") '根据品名分组
bd1.Groups.AddDef("单位") '根据型号分组
bd1.Groups.AddDef("单价") '根据型号分组
bd1.Totals.AddExp("长期医嘱_报数","[数量]") '对数量进行统计
bd1.Totals.AddExp("长期医嘱_金额","[报数] * [单价]") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New SQLGroupTableBuilder("统计表2","临时医嘱")
bd2.C
bd2.AddTable("临时医嘱","住次ID","住院主表","住次ID")
bd2.AddTable("临时医嘱","项目ID","清单模板","项目ID")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("住次ID") '根据品名分组
bd2.Groups.AddDef("姓名") '根据品名分组
bd2.Groups.AddDef("项目ID") '根据品名分组
bd2.Groups.AddDef("收费项目") '根据品名分组
bd2.Groups.AddDef("项目类别") '根据型号分组
bd2.Groups.AddDef("项目规格") '根据品名分组
bd2.Groups.AddDef("单位") '根据型号分组
bd2.Groups.AddDef("单价") '根据型号分组
bd2.Totals.AddExp("临时医嘱_报数","[数量]") '对数量进行统计
bd2.Totals.AddExp("临时医嘱_金额","[报数] * [单价]") '对数量进行统计
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"住次ID","姓名","项目ID","收费项目","项目类别","项目规格","单位","单价"}
dt1.Combine(nms,dt2,nms)'将销售统计数据组合到进货统计数据

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
    .Add("数量",Gettype(Integer), "IsNull([长期医嘱_报数],0) + ISNULL([临时医嘱_报数],0)")
    .Add("金额",Gettype(Double), "IsNull([长期医嘱_金额],0) + ISNULL([临时医嘱_金额],0)")
End With

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

点击浏览该文件:za20120720.zip

你简直让我要蹦溃了，这个问题发了那么多次贴，都是同样的错误。

例如第一段统计，你的列全部来自长期医嘱，你加入以下表干什么：

bd1.AddTable("长期医嘱","住次ID","住院主表","住次ID")
bd1.AddTable("长期医嘱","项目ID","清单模板","项目ID")
报数列是个表达式列，你怎么能直接使用呢：

bd1.Totals.AddExp("长期医嘱_金额","[报数] * [单价]") '对数量进行统计

应该：

bd1.Totals.AddExp("长期医嘱_金额","[数量] * [单价]") '对数量进行统计

其实我们反复讲相关的帮助贴给你了，也指出了问题所在，也给你做过例子的啊。

我再次帮你整理了一下，正确的代码：

Dim bd1 As New SQLGroupTableBuilder("统计表1","长期医嘱")
bd1.Connection Name = "za20120720"
Dim dt1 As fxDataSource
bd1.Groups.AddDef("长期医嘱.住次ID") '根据品名分组
bd1.Groups.AddDef("姓名") '根据品名分组
bd1.Groups.AddDef("项目ID") '根据品名分组
bd1.Groups.AddDef("收费项目") '根据品名分组
bd1.Groups.AddDef("项目类别") '根据型号分组
bd1.Groups.AddDef("项目规格") '根据品名分组
bd1.Groups.AddDef("单位") '根据型号分组
bd1.Groups.AddDef("单价") '根据型号分组
bd1.Totals.AddExp("长期医嘱_报数","[数量]") '对数量进行统计
bd1.Totals.AddExp("长期医嘱_金额","[数量] * [单价]") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New SQLGroupTableBuilder("统计表2","临时医嘱")
bd2.Connection Name = "za20120720"
Dim dt2 As fxDataSource
bd2.Groups.AddDef("住次ID") '根据品名分组
bd2.Groups.AddDef("姓名") '根据品名分组
bd2.Groups.AddDef("项目ID") '根据品名分组
bd2.Groups.AddDef("收费项目") '根据品名分组
bd2.Groups.AddDef("项目类别") '根据型号分组
bd2.Groups.AddDef("项目规格") '根据品名分组
bd2.Groups.AddDef("单位") '根据型号分组
bd2.Groups.AddDef("单价") '根据型号分组
bd2.Totals.AddExp("临时医嘱_报数","[数量]") '对数量进行统计
bd2.Totals.AddExp("临时医嘱_金额","[数量] * [单价]") '对数量进行统计
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"住次ID","姓名","项目ID","收费项目","项目类别","项目规格","单位","单价"}
dt1.Combine(nms,dt2,nms)'将销售统计数据组合到进货统计数据

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
    .Add("数量",Gettype(Integer), "IsNull([长期医嘱_报数],0) + ISNULL([临时医嘱_报数],0)")
    .Add("金额",Gettype(Double), "IsNull([长期医嘱_金额],0) + ISNULL([临时医嘱_金额],0)")
End With

bd1.Totals.AddExp(","[数量]") '对数量进行统计
bd1.Totals.AddExp("长期医嘱_金额","[数量] * [单价]") '对数量进行统计
表中表达式是：“长期医嘱_报数”是：IIF([数量] >= 0,[数量],0)

                     “长期医嘱_金额”是：IIF([数量] > 0,[数量] * [单价],0)

                         请教老师：表达式不是按软件的表中的表达式来写，而是按你们的那样去写吗？

这是后台统计，你的数据库中，根本没有报数这一列，报数列是个表达式列，数据来自于表中的数量列。

帮助已经说了嘛： 表达式列不能参与后台统计：

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

因为表达式列只是运行的时候生成，后台的表中并不存在这些列。