- 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=49358)
-- 发布时间：2014/4/16 17:54:00
-- [求助]统计问题
1、怎么把下图中统计结果最后的2014年应收列放到前面呢？如图所示，代码如下。我把生成2014年应收列的代码换了好几个位置都没成功，最后总算显示了，但位置不对，而且代码提示错误。
2、如果1解决了，那么我不想显示“2014年开票金额”“2014年回款金额”“2013年开票金额”“2013年回款金额”，因为这些列可以说都是辅助列，最终我想要的是表达式列“应收”，所有只显示应收列即可，该怎么办呢？应收=开票-回款
请老师们指点！！！
此主题相关图片如下：111111111111111111111111111111111111.jpg
\'\'\'\'\'\'\'\'\'\'\'\'\'\'2014年应收\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
Dim b1 As New SQLGroupTableBuilder("统计表1","开票明细表")
Dim dt1 As fxDataSource
b1.C
b1.Groups.AddDef("公司名称")
b1.Totals.AddDef("金额","2014年_开票金额")
\'b1.Filter =" {开票明细表}.[开票日期] >= #1/1/1999# And {开票明细表}.[开票日期] <= #12/29/2014#"
dt1 = b1.BuildDataSource()
Dim b2 As New SQLGroupTableBuilder("统计表2","回款明细表")
Dim dt2 As fxDataSource
b2.C
b2.Groups.AddDef("公司名称")
b2.Totals.AddDef("回款金额","2014年_回款金额")
\'b2.Filter =" {开票明细表}.[开票日期] >= #1/1/1999# And {开票明细表}.[开票日期] <= #12/29/2014#"
dt2 = b2.BuildDataSource()
dt1.Combine("公司名称",dt2,"公司名称")
\'dt1.Show("统计表1")
\'dt1.Build(True)
\'With DataTables("统计表1").DataCols
\' .Add("2014年_应收金额",Gettype(Double), "IsNull([2014年_开票金额],0) - ISNULL([2014年_回款金额],0) ")
\'End With
\'MainTable = Tables("统计表1")
\'\'\'\'\'\'\'\'\'\'\'\'\'\'2013年应收\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
Dim b21 As New SQLGroupTableBuilder("统计表21","开票明细表")
Dim dt21 As fxDataSource
b21.C
b21.Groups.AddDef("公司名称")
b21.Totals.AddDef("金额","2013年_开票金额")
\'b21.Filter =" {开票明细表}.[开票日期] >= #1/1/1999# And {开票明细表}.[开票日期] <= #12/29/2014#"
dt21 = b21.BuildDataSource()
Dim b22 As New SQLGroupTableBuilder("统计表22","回款明细表")
Dim dt22 As fxDataSource
b22.C
b22.Groups.AddDef("公司名称")
b22.Totals.AddDef("回款金额","2013年_回款金额")
\'b22.Filter =" {开票明细表}.[开票日期] >= #1/1/1999# And {开票明细表}.[开票日期] <= #12/29/2014#"
dt22 = b22.BuildDataSource()
dt21.Combine("公司名称",dt22,"公司名称")
dt21.Show("统计表21")
With DataTables("统计表21").DataCols
.Add("2013年_应收金额",Gettype(Double), "IsNull([2013年_开票金额],0) - ISNULL([2013年_回款金额],0) ")
.Add("2014年_应收金额",Gettype(Double), "IsNull([2014年_开票金额],0) - ISNULL([2014年_回款金额],0) ")
End With
dt1.Combine("公司名称",dt21,"公司名称")
dt1.Show("统计表21")
\'MainTable = Tables("统计表1")
[此贴子已经被作者于2014-4-16 17:57:48编辑过]
-- 发布时间：2014/4/16 17:56:00
--
利用move 移动一下.想放哪里放哪里