- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 合并表格问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43822)
-- 发布时间：2013/12/16 16:05:00
-- 合并表格问题
各位大侠 :怎么样可以把销售明细和客户付款表合并变成表C那样的表格 要接日期排序?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:进销存.foxdb |
-- 发布时间：2013/12/16 16:10:00
--
没有数据源,打不开
-- 发布时间：2013/12/16 16:14:00
--
数据源在这里
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:data.zip |
-- 发布时间：2013/12/16 16:21:00
--
没有看明白关联,是使用单号作为关联吗?
-- 发布时间：2013/12/16 16:26:00
--
哪个表和哪个表 ?
-- 发布时间：2013/12/16 16:28:00
--
你不是把销售明细和客户付款表合并吗? 以那个列为基准合并?
[此贴子已经被作者于2013-12-16 16:28:10编辑过]
-- 发布时间：2013/12/16 20:18:00
--
用上面的例子，用下面的代码。
DataTables("表C").DataRows.clear
Dim f As new Filler
f.SourceTable = DataTables("销售明细表") \'指定数据来源
f.SourceCols = "单号,品名,件数,包装,规格,单价,金额,产品id,客户名称" \'指定数据来源列
f.DataTable = DataTables("表C") \'指定数据接收表
f.DataCols = "单号,品名,件数,包装,规格,单价,欠款金额,产品id,客户名称" \'指定数据接收列
f.Fill() \'填充数据
For Each dr As DataRow In DataTables("表C").DataRows
Dim fdr As DataRow = DataTables("销售主表").Find("单号 = \'" & dr("单号") & "\'")
If fdr IsNot Nothing Then
dr("日期") = fdr("日期")
End If
Next
f = new Filler
f.SourceTable = DataTables("客户付款表") \'指定数据来源
f.SourceCols = "单号,日期,客户名称,付款金额" \'指定数据来源列
f.DataTable = DataTables("表C") \'指定数据接收表
f.DataCols = "单号,日期,客户名称,付款金额" \'指定数据接收列
f.Fill() \'填充数据
For Each dr As DataRow In DataTables("表C").Select("付款金额 Is not null")
dr("欠款金额") = DataTables("表C").Compute("sum(欠款金额)", "客户名称 = \'" & dr("客户名称") & "\' and 日期 <= #" & dr("日期") & "# and _Identify <> " & dr("_Identify")) - dr("付款金额")
Next
Tables("表C").Sort = "日期"
-- 发布时间：2014/2/21 1:35:00
--
楼主问题解决了吗 ？
销售明细表和付款明细表 合并 以日期列作为基准
怎么实现呢