以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多表统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128778)

--  作者:taifeng110
--  发布时间:2018/12/14 19:14:00
--  多表统计

图片点击可在新窗口打开查看此主题相关图片如下:cfcf.png
图片点击可在新窗口打开查看


如何写代码呢?

--  作者:y2287958
--  发布时间:2018/12/14 19:15:00
--  
上实例
--  作者:y2287958
--  发布时间:2018/12/14 19:17:00
--  
[此贴子已经被作者于2018/12/14 20:49:09编辑过]

--  作者:有点蓝
--  发布时间:2018/12/14 20:46:00
--  
参考:http://www.foxtable.com/webhelp/scr/2322.htm
--  作者:taifeng110
--  发布时间:2018/12/19 7:42:00
--  
参考看了,还是没有思路,以哪个字段为分组依据呢?客户还是日期呢?
--  作者:有点甜
--  发布时间:2018/12/19 9:33:00
--  

直接拷贝数据过来算了。如

 

http://www.foxtable.com/webhelp/scr/1533.htm

 


--  作者:taifeng110
--  发布时间:2018/12/25 15:20:00
--  

图片点击可在新窗口打开查看此主题相关图片如下: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("发票表") \'指定数据来源
f2.SourceCols = "发票金额,发票号码,发票日期" \'指定数据来源列
f2.Filter="客户名称=\'" & kh & "\'and 发票日期 >= \'" & dateqi & "\' and 发票日期 <= \'" & Datezhi & "\'" 
f2.Append=False
f2.Distinct = False
f2.DataTable = DataTables("对账单") \'指定数据接收表
f2.DataCols = "本期发票明细_发票金额,本期发票明细_发票号码,本期发票明细_发票日期"\'指定数据接收列
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编辑过]

--  作者:有点甜
--  发布时间:2018/12/25 15:22:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1532.htm