Dim g As New SQLGroupTableBuilder("利润1", "表a") g.AddTable("表a","编号","支出明细","编号") g.Groups.AddDef("客户") g.Totals.Addexp("应收款合计","iif(代付费用_打单费 Is null,0,代付费用_打单费) + iif(代付费用_理货费 Is null,0,代付费用_理货费)+iif(代付费用_港杂费 Is null,0,代付费用_港杂费) + iif(代付费用_疏港费 Is null,0,代付费用_疏港费)+iif(代付费用_三检费 Is null,0,代付费用_三检费) + iif(代付费用_落箱费 Is null,0,代付费用_落箱费)+iif(代付费用_上下车 Is null,0,代付费用_上下车) + iif(代付费用_超期费 Is null,0,代付费用_超期费)+iif(代付费用_排计划 Is null,0,代付费用_排计划) + iif(代付费用_其它 Is null,0,代付费用_其它)+iif(代付费用_预提箱 Is null,0,代付费用_预提箱) + iif(代付费用_坏箱费 Is null,0,代付费用_坏箱费)+ iif(运费 Is null,0,运费)") g.Totals.Addexp("税","(iif(代付费用_打单费 Is null,0,代付费用_打单费) + iif(代付费用_理货费 Is null,0,代付费用_理货费)+iif(代付费用_港杂费 Is null,0,代付费用_港杂费) + iif(代付费用_疏港费 Is null,0,代付费用_疏港费)+iif(代付费用_三检费 Is null,0,代付费用_三检费) + iif(代付费用_落箱费 Is null,0,代付费用_落箱费)+iif(代付费用_上下车 Is null,0,代付费用_上下车) + iif(代付费用_超期费 Is null,0,代付费用_超期费)+iif(代付费用_排计划 Is null,0,代付费用_排计划) + iif(代付费用_其它 Is null,0,代付费用_其它)+iif(代付费用_预提箱 Is null,0,代付费用_预提箱) + iif(代付费用_坏箱费 Is null,0,代付费用_坏箱费)+ iif(运费 Is null,0,运费))*0.01") g.Totals.AddExp("支出明细","金额") g.Totals.AddExp("利润","(iif(代付费用_打单费 Is null,0,代付费用_打单费) + iif(代付费用_理货费 Is null,0,代付费用_理货费)+iif(代付费用_港杂费 Is null,0,代付费用_港杂费) + iif(代付费用_疏港费 Is null,0,代付费用_疏港费)+iif(代付费用_三检费 Is null,0,代付费用_三检费) + iif(代付费用_落箱费 Is null,0,代付费用_落箱费)+iif(代付费用_上下车 Is null,0,代付费用_上下车) + iif(代付费用_超期费 Is null,0,代付费用_超期费)+iif(代付费用_排计划 Is null,0,代付费用_排计划) + iif(代付费用_其它 Is null,0,代付费用_其它)+iif(代付费用_预提箱 Is null,0,代付费用_预提箱) + iif(代付费用_坏箱费 Is null,0,代付费用_坏箱费)+ iif(运费 Is null,0,运费)) - 金额 - ((iif(代付费用_打单费 Is null,0,代付费用_打单费) + iif(代付费用_理货费 Is null,0,代付费用_理货费)+iif(代付费用_港杂费 Is null,0,代付费用_港杂费) + iif(代付费用_疏港费 Is null,0,代付费用_疏港费)+iif(代付费用_三检费 Is null,0,代付费用_三检费) + iif(代付费用_落箱费 Is null,0,代付费用_落箱费)+iif(代付费用_上下车 Is null,0,代付费用_上下车) + iif(代付费用_超期费 Is null,0,代付费用_超期费)+iif(代付费用_排计划 Is null,0,代付费用_排计划) + iif(代付费用_其它 Is null,0,代付费用_其它)+iif(代付费用_预提箱 Is null,0,代付费用_预提箱) + iif(代付费用_坏箱费 Is null,0,代付费用_坏箱费)+ iif(运费 Is null,0,运费))*0.01)") g.Build() MainTable = Tables("利润1")
|