- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]word报表怎么打印明细表？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77682)
-- 发布时间：2015/11/23 15:14:00
-- [求助]word报表怎么打印明细表？
这样的关联表要怎么做word打印？
此主题相关图片如下：123123123.png
son出口情况一览_tbl1 是父表
son出口情况一览_tbl2 是子表
怎么同时显示父子表，子表如何取多行数据？
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String = ProjectPath & "Attachments\\出口货物报关单.doc"
Dim fl1 As String = ProjectPath & "Reports\\出口货物报关单.doc"
Dim fl2 As String = ProjectPath & "Reports\\出口货物报关单.pdf"
Dim wrt As New WordReport(Tables("son出口情况一览_tbl1"),tm,fl1) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.SaveToPDF(fl2) \'保存为PDF文件
wrt.Quit() \'退出
wbr.AddRess = fl2
-- 发布时间：2015/11/23 15:48:00
--
不行，无法循环打印子表，只能固定n行的子表。
http://www.foxtable.com/help/topics/2886.htm
http://www.foxtable.com/help/topics/2887.htm
-- 发布时间：2015/11/23 18:36:00
--
袍哥,可以用了,
但是还有一个问题,我有两个临时表,
求关联代码
DataTables("主表").LoadChildren("从表","出口编号","编号")
没有用,要手动设置才能用.
-- 发布时间：2015/11/23 18:52:00
--
我自己已经解决 谢谢
-- 发布时间：2015/11/24 8:22:00
--
word如何循环的
-- 发布时间：2015/11/24 9:14:00
--
以下是引用lyfxybc在2015/11/24 8:22:00的发言：
word如何循环的
word如何循环的
word无法循环。不过你可以先生成excel报表，然后再拷贝到word
Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) \'指定要复制的工作表
Ws.UsedRange.Copy
Dim fileName = "d:\\test.doc"
Dim doc = wapp.Documents.Open(fileName)
wapp.ActiveWindow.Selection.WholeStory
wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
wapp.ActiveWindow.Selection.TypeParagraph
wapp.ActiveWindow.Selection.paste
wapp.Visible = True
catch ex As exception
msgbox(ex.message)
wapp.Quit
finally
eapp.quit
End try