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