主题：[求助]帮我改一下统计代码

Dim bd1 As New SQLGroupTableBuilder("统计表1","长期医嘱")
bd1.AddTable("长期医嘱","住次ID","住院主表","住次ID")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("姓名") '根据品名分组
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.AddTable("临时医嘱","住次ID","住院主表","住次ID")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("姓名") '根据品名分组
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() = {"收费项目","项目类别","项目规格","单位","单价"}
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

你的数据库在哪里？

Dim bd1 As New SQLGroupTableBuilder("统计表1","长期医嘱")
bd1.C
Dim dt1 As fxDataSource

bd1.AddTable("长期医嘱","住次ID","住院主表","住次ID")
bd1.AddTable("长期医嘱","项目ID","长期医嘱模板","项目ID")
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("长期医嘱_报数","IIF([数量] >= 0,[数量],0)") '对数量进行统计
bd1.Totals.AddExp("长期医嘱_金额","IIF([数量] > 0,[数量] * [单价],0)") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New SQLGroupTableBuilder("统计表2","临时医嘱")
bd2.C
Dim dt2 As fxDataSource

bd2.AddTable("临时医嘱","住次ID","住院主表","住次ID")
bd2.AddTable("临时医嘱","项目ID","临时医嘱模板","项目ID")
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("临时医嘱_报数","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量],0)") '对数量进行统计
bd2.Totals.AddExp("临时医嘱_金额","IIF([开始日期] >= [报起始日期]And[开始日期] <= [报截止日期],[数量] * [单价],0)") '对数量进行统计
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

 

这是我新写的代码，，总不是有二个题示，

我们已经在另外一个帖子回你了啊：

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=21896

 

我在软件中输入修改后的代码，出现一个题示：bd1.Connection Name = "za20120720"不对，不知何意？

我有啊，，现在测试正常了，，原来bd1.Connection Name = "za20120720“有个空格，不过我现在要问的是：代码中的表达式和软件中的不同，是吗？那代码中的表达式是怎样写才与软件中的一致啊！

反正后台统计的时候，表达式列不能出现在任何地方。

我这个窗口中的表怎么总是统计一个人的啊，，不能根据主院主表选定的人进行统计它的各个子表的数据？

住院主表是主表，和长期医嘱，临时医嘱是一对多的关系，这样的话，，代码怎样写啊