Tables(e.form.Name & "_Table1").fill("sele ct a.客户编码, a.客户名称,a.简码,a.电话, 期初金额, sum(金额2) as 销售金额, sum(金额1) as 收款金额,(isnull(期初金额,0)+isnull(sum(金额2),0)-isnull(sum(金额1),0)) as 余额 from {客户} as a left join (sel ect 单位编码, 单位名称, 借方金额 as 金额1, 0 as 金额2 from {资金收付明细单} where 单据状态='已审核' union all Se lect 客户编码, 客户名称, 0, 金额 from {销售单} where 单据状态='已审核' ) As b on a.客户编码 = b.单位编码 And a.客户名称 = b.单位名称 group by a.客户编码, a.客户名称,a.简码,a.电话, 期初金额","wjhansdata",True)
Tables(e.form.Name & "_Table1").SetColVisibleWidth("客户编码|60|客户名称|198|电话|120|期初金额|100|销售金额|100|收款金额|100|余额|100")
Tables(e.form.Name & "_Table1").Cols("期初金额").GrandTotal = True '指定要合计的列
Tables(e.form.Name & "_Table1").Cols("销售金额").GrandTotal = True
Tables(e.form.Name & "_Table1").Cols("收款金额").GrandTotal = True
Tables(e.form.Name & "_Table1").Cols("余额").GrandTotal = True
Tables(e.form.Name & "_Table1").DataTable.DataCols("期初金额").SetFormat("0.00")
Tables(e.form.Name & "_Table1").DataTable.DataCols("销售金额").SetFormat("0.00")
Tables(e.form.Name & "_Table1").DataTable.DataCols("收款金额").SetFormat("0.00")
Tables(e.form.Name & "_Table1").DataTable.DataCols("余额").SetFormat("0.00")
Tables(e.form.Name & "_Table1").sort="客户编码"
Tables(e.form.Name & "_Table1").GrandTotal = True '显示合计模式
Dim Filter As String = "1=1"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "余额<>0"
Tables(e.form.Name & "_Table1").filter=filter
生成的表 余额为零的也显示出来