- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]打印关联子表问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126365)
-- 发布时间：2018/10/19 13:29:00
-- [求助]打印关联子表问题
在打印关联子表时，在word中插入了关联子表，但在word模板预览时，只能显示在狐表中点中的那个单元格所在行的内容，想请教如何把狐表中表格中的全部内容打印到word中
-- 发布时间：2018/10/19 13:30:00
--
此主题相关图片如下：狐表内容.png
此主题相关图片如下：word模板插入关联子表预览效果.png
在打印关联子表时，在word中插入了关联子表，但在word模板预览时，只能显示在狐表中点中的那个单元格所在行的内容，想请教如何把狐表中表格中的全部内容打印到word中 此主题相关图片如下：word模板插入关联子表.png |
-- 发布时间：2018/10/19 14:25:00
--
子表选中几行就打印几行
-- 发布时间：2018/10/19 15:29:00
--
以下是引用有点蓝在2018/10/19 14:25:00的发言：
子表选中几行就打印几行
子表选中几行就打印几行
按照你说的选了，但选几行就打印几行，但打印是分几个表出来的，选3行，就打印成三个表了
-- 发布时间：2018/10/19 15:31:00
--
不可能的，除非不是子表，也没有关联。具体上传实例说明
-- 发布时间：2018/10/19 17:09:00
--
我重新做了一个，还是这种情况，不知道问题出在哪，请帮忙解决，谢谢!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:通讯录111.zip |
-- 发布时间：2018/10/19 17:35:00
--
您应该理解错了。父表一页只能显示一行，然后子表只能显示父表选中的那一行对应的子表记录。
这种仅仅为了显示2个表的数据，其实和关联表、父子表这种其实没有什么关系了。需要通过代码输出，例如
Dim tm As String = ProjectPath & "Attachments\\通讯录.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\通讯录.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("成本控制中心"),tm,fl) \'定义一个WordReport
Dim sum As Integer
For i As Integer = 0 To Tables("成本控制中心").rows.count - 1
Dim r As Row = Tables("成本控制中心").rows(i)
wrt.ReplaceOne("[@成本控制中心,部门," & (i+1) & "]",r("部门"))
wrt.ReplaceOne("[@成本控制中心,姓名," & (i+1) & "]",r("姓名"))
Next
wrt.BuildOne(Tables("成本控制中心").rows(0))
wrt.Show() \'显示报表
-- 发布时间：2018/10/22 11:46:00
--
谢谢老师的帮助，用您提供的代码果然解决了问题，但还有个小问题想请教，
此主题相关图片如下：word模板输出效果.png
，word模板中行数多余行如何显示成无内容的空白行？-- 发布时间：2018/10/22 11:56:00
--
代码改成
Dim tm As String = ProjectPath & "Attachments\\通讯录.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\通讯录.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("成本控制中心"),tm,fl) \'定义一个WordReport
Dim sum As Integer
For i As Integer = 0 To Tables("成本控制中心").rows.count - 1
Dim r As Row = Tables("成本控制中心").rows(i)
wrt.ReplaceOne("[@成本控制中心,部门," & (i+1) & "]",r("部门"))
wrt.ReplaceOne("[@成本控制中心,姓名," & (i+1) & "]",r("姓名"))
Next
For i As Integer = Tables("成本控制中心").rows.count to 4
wrt.ReplaceOne("[@成本控制中心,部门," & (i) & "]", "")
wrt.ReplaceOne("[@成本控制中心,姓名," & (i) & "]", "")
Next
wrt.BuildOne(Tables("成本控制中心").rows(0))
wrt.Show() \'显示报表
-- 发布时间：2018/10/22 18:52:00
--
谢谢版主赐教！