- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]EXCEL报表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26540)
-- 发布时间：2012/12/7 12:43:00
-- [求助]EXCEL报表
导出EXCEL报表的时候有没有办法把关联表的信息以批注的形式插入到主表的相关列中？
比如将进炉明细表的信息以批注的形式插入进炉量那一列
或者有没有其他的类似办法
[此贴子已经被作者于2012-12-7 13:01:50编辑过]
-- 发布时间：2012/12/7 13:28:00
--
我已经想出办法了，现在有个问题需要帮助，就是怎么把关联表的所有关联行变成字符串？
-- 发布时间：2012/12/7 14:20:00
--
楼主想出的办法是什么呢？
编写报表事件->查询关联表数据->遍历行，取出数据。
-- 发布时间：2012/12/7 15:15:00
--
具体的例子，可以参考下示例。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:excel_关联表_批注形式.zip |
-- 发布时间：2012/12/9 9:29:00
--
呵呵，我的方法
Select Case e.Book.TempLate
Case "铝箔未完成合同清单模版"
If e.DataRow IsNot Nothing AndAlso e.Region = "订单" Then
Dim Arys As List(Of String()) = DataTables("铝箔退火炉").GetUniqueValues("合同序号 = \'" & e.DataRow("合同序号") & "\'", "炉号","出炉时间","进炉量")
Dim S As String
For Each Ary As String() In Arys
S = S & Ary(0) & " | " & Ary(1) & " | " & Ary(2) & " "
Next
e.Book.Marks("进炉明细") = S
End If
End Select
-- 发布时间：2012/12/9 9:43:00
--
好样的，又学到知识