以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73036)
--  作者：fanjq8686
--  发布时间：2015/8/11 12:06:00
--  统计

请教老师：

下面代码中用绿色的行正确，黃色行错误，为什么？如何才能用黃色的代码？

 

DataTables("业务流程表").LoadFilter = "" 

DataTables("业务流程表").load

Forms("奖金核算窗口").Controls("Label1").Text = "奖金核算"

 

Dim d1 As fxDataSource
Dim jb1 As New SQLJoinTableBuilder("查询表1","业务流程表")
jb1.C
jb1.AddTable("业务流程表","奖金代码","奖金方案表","奖金代码")
jb1.AddExp("姓名","检验主检")
jb1.AddCols("报告编号")
jb1.AddExp("工作性质","case when 检验主检 is null Then \'无\' Else \'主检\' End")
jb1.AddExp("金额","检验奖金额")
jb1.AddExp("定额","检验工时定额")
jb1.Filter = "检验主检 <> \'\'"

 

Dim jb2 As New SQLJoinTableBuilder("查询表2","业务流程表")
jb2.C
jb2.AddTable("业务流程表","奖金代码","奖金方案表","奖金代码")
jb2.AddExp("姓名","检验辅检")
jb2.AddCols("报告编号")
jb2.AddExp("工作性质","case when 检验辅检 is null Then \'无\' Else \'辅检\' End")
jb2.AddExp("金额","检验奖金额 * 0.5")
jb2.AddExp("定额","检验工时定额")
jb2.Filter = "检验辅检 <> \'\'"

 

Dim jb3 As New SQLJoinTableBuilder("查询表3","业务流程表")  \'查询表生成器
jb3.C
jb3.AddTable("业务流程表","奖金代码","奖金方案表","奖金代码")  \'添加关联表
jb3.AddExp("姓名","文审主审")
jb3.AddCols("报告编号")
jb3.AddExp("工作性质","case when 文审主审 is null Then \'无\' Else \'文审\' End")
jb3.AddExp("金额","文审奖金额")
jb3.AddExp("定额","文审工时定额")
jb3.Filter = "文审主审 <> \'\'"

 

jb1.Union(jb2,True) \'组合jb2
jb1.Union(jb3,True) \'组合jb3

jb1.Build(True) 


\'Dim b1 As New GroupTableBuilder("统计表1",DataTables("查询表1"))  \'分组统计表生成器
Dim b1 As New SQLGroupTableBuilder("统计表1","查询表1")  \'后台数据分组统计

b1.Groups.AddDef("姓名") \'添加列用于水平分组
b1.Totals.AddDef("金额") \'添加数量列用于统计
b1.Totals.AddDef("定额") \'添加数量列用于统计
d1 = b1.BuildDataSource()
Tables("奖金核算窗口_Table2").DataSource = d1

Tables("奖金核算窗口_Table2").Cols("金额").GrandTotal = True
Tables("奖金核算窗口_Table2").Cols("定额").GrandTotal = True
Tables("奖金核算窗口_Table2").GrandTotal = True \'显示合计模式

 

Tables("奖金核算窗口_Table2").AutoSizeCols()    \'自动列宽
Tables("奖金核算窗口_Table2").SetHeaderRowHeight(30,30)    \'表头行高
\'Tables("奖金核算窗口_Table2").Sort = "检验主检"  
--  作者：大红袍
--  发布时间：2015/8/11 12:14:00
--  
 查询表1，不能直接用。它不是后台数据库真实存在的表。
--  作者：fanjq8686
--  发布时间：2015/8/11 12:38:00
--  
那该如何办呢？
--  作者：fanjq8686
--  发布时间：2015/8/11 12:39:00
--  
想利用查询表的结果做一些统计计算。
--  作者：大红袍
--  发布时间：2015/8/11 14:23:00
--  
以下是引用fanjq8686在2015/8/11 12:39:00的发言：
想利用查询表的结果做一些统计计算。

 

直接用绿色代码。