Dim dtx As DataTable
Dim b As New SQLGroupTableBuilder("统计表2","租赁合同结转情况表")
b.C
Dim dt1 As fxDataSource
b.Groups.Adddef("合同编号","合同编号") '根据产品ID分组
b.Groups.AddDef("项目名称") '根据产品ID分组
b.Groups.Adddef("客户名称") '根据产品ID分组
b.Groups.AddDef("租赁类别") '根据产品ID分组
b.Groups.AddDef("房间名称") '根据产品ID分组
b.Groups.AddDef("合同开始日期",DateGroupEnum.none) '根据产品ID分组
b.Groups.AddDef("合同终止日期",DateGroupEnum.none) '根据产品ID分组
b.Groups.AddDef("租金金额") '根据产品ID分组
b.Groups.AddDef("服务费金额") '根据产品ID分组
b.Groups.AddDef("合同状态") '根据产品ID分组
b.Groups.Adddef("累计已收租金金额","已收_租金") '根据产品ID分组
b.Groups.Adddef("累计已收服务费金额","已收_服务费") '根据产品ID分组
b.filter= filter
dt1 = b.BuildDataSource()
Dim b2 As New SQLGroupTableBuilder("统计表3","租赁合同fa piao明细表")
b2.C
'b2.AddTable("租赁合同fa piao明细表","合同编号","租赁合同结转情况表","合同编号")
Dim dt2 As fxDataSource
b2.Groups.AddDef("合同编号") '根据产品ID分组
b2.Totals.AddExp("已开piao不含税租金","Case When 服务名称='房屋租金' or 服务名称='场地租赁' Then 不含税金额 Else 0 End","已开piao_不含税租金")
b2.Totals.AddExp("已开piao租金","Case When 服务名称='房屋租金' or 服务名称='场地租赁' Then 含税金额 Else 0 End","已开piao_租金")
b2.Totals.AddExp("已开piao租金税额 ", "isnull(已开piao租金,0)-isnull(已开piao不含税租金,0)" ，“已开piao_租金税额”) ‘这句报错找不到 已开piao租金 和 已开piao不含税租金 ，怎么回事啊？
b2.Totals.AddExp("已开piao不含税服务费","Case When 服务名称='服务费' Then 不含税金额 Else 0 End","已开piao_不含税服务费")
b2.Totals.AddExp("已开piao服务费","Case When 服务名称='服务费' Then 含税金额 Else 0 End","已开piao_服务费")
b2.Filter = filter2
dt2 = b2.BuildDataSource()
加好友 
发短信
Post By：2020/5/21 12:42:00 [只看该作者]
