- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel打印报表，将日期横向排列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119393)
-- 发布时间：2018/5/24 9:25:00
-- excel打印报表，将日期横向排列
通过订单号将“出货计划”和“出货计划明细”建立了关联
此主题相关图片如下：未命名.png
[此贴子已经被作者于2018/5/24 9:28:21编辑过]
-- 发布时间：2018/5/24 9:37:00
--
首先，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118845&skin=0
然后，转换成水平表
http://www.foxtable.com/webhelp/scr/2965.htm
或，交叉统计 http://www.foxtable.com/webhelp/scr/0165.htm
最后，合并主表数据
http://www.foxtable.com/webhelp/scr/2305.htm
-- 发布时间：2018/5/24 11:06:00
--
不能通过excel报表解决吗？
我那个出货计划明细是关联表，提示GetValues不是table的成员
Dim dtb As New DataTableBuilder("横向出货计划")
dtb.AddDef("订单号", Gettype(String), 32)
For Each v As String In Tables("出货计划.出货计划明细").GetValues("计划走货日期")
dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In Tables("出货计划.出货计划明细").GetValues("订单号")
Dim dr1 As DataRow = DataTables("横向出货计划").AddNew()
dr1("订单号") = v
For Each dr2 As DataRow In Tables("出货计划.出货计划明细").Select("订单号 = \'" & v & "\'")
dr1(dr2("计划走货日期")) = dr2("计划走货量")
Next
Next
MainTable = Tables("横向出货计划")
-- 发布时间：2018/5/24 11:24:00
--
对于复杂的报表，是不能直接用excel报表解决的。要先生成对应的table，然后再想办法导出。
For Each v As String In Tables("出货计划.出货计划明细").GetValues("计划走货日期")
要改成
For Each v As String In DataTables("出货计划明细").GetValues("计划走货日期")
-- 发布时间：2018/5/24 13:43:00
--
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,出货计划,Button4,Click
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index
-- 发布时间：2018/5/24 14:37:00
--
上传具体实例、代码说明你的问题。