此主题相关图片如下：11111111111.png
DataTables("对账单").datarows.ClearDim 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编辑过]
加好友 
发短信
Post By：2018/12/14 19:14:00 [显示全部帖子]
