多表统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：11111111111.png

DataTables("对账单").datarows.Clear

Dim kh As String = e.Form.Controls("TextBox3").text

Dim dateqi As Date =e.Form.Controls("DateTimePicker1").value

Dim datezhi As Date=e.Form.Controls("DateTimePicker2").value

Dim f As New Filler

f.SourceTable = DataTables("物流明细") '指定数据来源

f.SourceCols = "出库日期,客户牌号,出库数量,单价,出库金额" '指定数据来源列

f.Filter="客户名称='" & kh & "'and 出库日期 >= '" & dateqi & "' and 出库日期 <= '" & Datezhi & "'"

f.Append=False

f.Distinct = False

f.DataTable = DataTables("对账单") '指定数据接收表

f.DataCols = "本期发货明细_送货日期,本期发货明细_客户牌号,本期发货明细_数量,本期发货明细_单价,本期发货明细_金额" '指定数据接收列

f.Fill() '填充数据

Dim f2 As New Filler

f2.SourceTable = DataTables("fa piao表") '指定数据来源

f2.SourceCols = "fa piao金额,fa piao号码,fa piao日期" '指定数据来源列

f2.Filter="客户名称='" & kh & "'and fa piao日期 >= '" & dateqi & "' and fa piao日期 <= '" & Datezhi & "'"

f2.Append=False

f2.Distinct = False

f2.DataTable = DataTables("对账单") '指定数据接收表

f2.DataCols = "本期fa piao明细_fa piao金额,本期fa piao明细_fa piao号码,本期fa piao明细_fa piao日期"'指定数据接收列

f2.Fill() '填充数据

Dim f3 As New Filler

f3.SourceTable = DataTables("收款表") '指定数据来源

f3.SourceCols = "日期,到款方式,收款金额,备注" '指定数据来源列

f3.Filter="客户名称='" & kh & "'and 日期 >= '" & dateqi & "' and 日期 <= '" & Datezhi & "'"

f3.Append=False

f3.Distinct = False

f3.DataTable = DataTables("对账单") '指定数据接收表

f3.DataCols = "本期到账明细_到账日期,本期到账明细_支付方式,本期到账明细_到账金额,本期到账明细_备注"'指定数据接收列

f3.Fill() '填充数据

我用fill填充了数据，已经实现我要的功能了，就是想在空白的部分填上“---”，标示是没有数据的，这个如何实现呢？

[此贴子已经被作者于2018/12/25 15:21:37编辑过]

主题：多表统计