- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于word模板设计 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104818)
-- 发布时间：2017/8/5 20:59:00
-- [求助]关于word模板设计
此主题相关图片如下：word模板1.png
此主题相关图片如下：word模2.png
此主题相关图片如下：word模3.png
老师，现在我有这3个表，其中
-- 发布时间：2017/8/6 11:43:00
--
这种要用代码的方式处理，查找到各个表的数据，然后替换。
http://www.foxtable.com/webhelp/scr/2890.htm
-- 发布时间：2017/8/6 14:09:00
--
能不能详细一点，小白不懂
-- 发布时间：2017/8/6 15:15:00
--
先把foxtable帮助文档看一遍
http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187
查找子表、孙表数据，合成数据，不会做上传具体实例。
-- 发布时间：2017/8/6 17:12:00
--
我上传实例了啊，提问题的就是实例 啊
-- 发布时间：2017/8/6 17:16:00
--
上传具体foxtable项目。
-- 发布时间：2017/8/6 17:54:00
--
是这个意思吗？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:word文档模板的问题.rar |
-- 发布时间：2017/8/6 18:29:00
--
做一个按钮写代码
Dim t As Table = Tables("总表")
Dim tm As String = ProjectPath & "Attachments\\word模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\word模板.doc" \'指定目标文件
Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport
For i As Integer = t.TopPosition To t.BottomPosition
Dim str As String = ""
For Each dr As DataRow In t.Rows(i).DataRow.GetChildRows("违法信息")
str &= "因" & dr("违法事实") & ",现给与其"
Dim nstr As String = ""
For Each cdr As DataRow In dr.GetChildRows("处罚信息")
nstr &= """" & cdr("处罚情况") & ""","
Next
str &= nstr.trim(",") & "的处罚;" & vbcrlf
Next
wrt.ReplaceOne("[内容]", str.trim(chr(13),chr(10),";"))
wrt.BuildOne(t.Rows(i))
Next
wrt.Show() \'显示报表
word模板的内容，改成下面的
[公司_名称][内容]
-- 发布时间：2017/8/6 19:47:00
--
感谢，很好用