- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 从两个表提取不同行数据，填充到一个表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61548)
-- 发布时间：2014/12/14 18:05:00
-- 从两个表提取不同行数据，填充到一个表
前面问过这个问题，目前已能实现基本功能，但细节上还有点小问题。
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
-- 发布时间：2014/12/14 18:09:00
--
想办法，先在foxtable里面生成要显示的表，然后再把表导出成报表。
-- 发布时间：2014/12/14 20:29:00
--
木头脑袋，想来想去搞不定啊
-- 发布时间：2014/12/14 20:43:00
--
Dim f As New Filler \'先填充订单统计
f.SourceTable = DataTables("订单明细表") \'指定数据来源
f.SourceCols = "客户名称,型号规格,数量,发货日期" \'指定数据来源列
f.Distinct = False \'允许出现重复值
f.Filter = "客户名称 = \'张三\'"
f.DataTable = DataTables("对账单") \'指定数据接收表
f.DataCols = "客户名称,型号规格,数量,发货日期" \'指定数据接收列
f.Fill() \'填充数据
Tables("对账单").Sort = "发货日期"
Dim drs As List(Of DataRow) = DataTables("收款明细表").Select("客户名称 = \'张三\'", "收款日期")
Dim idx As Integer = drs.Count - Tables("对账单").Rows.Count
If idx > 0 Then Tables("对账单").AddNew(idx)
For i As Integer = 0 To drs.Count - 1
Tables("对账单").Rows(i)("收款金额") = drs(i)("收款金额")
Tables("对账单").Rows(i)("收款日期") = drs(i)("收款日期")
Next
Dim Book As New XLS.Book(ProjectPath & "Attachments\\对账单.xls")
Dim fl As String = ProjectPath & "Reports\\对账单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
DataTables("对账单").DataRows.Clear
-- 发布时间：2014/12/14 20:56:00
--
谢谢
