主题：[求助]关于word模板设计

此主题相关图片如下：word模板1.png

此主题相关图片如下：word模2.png

此主题相关图片如下：word模3.png

老师，现在我有这3个表，其中

 这种要用代码的方式处理，查找到各个表的数据，然后替换。

 

http://www.foxtable.com/webhelp/scr/2890.htm

 

 

能不能详细一点，小白不懂

先把foxtable帮助文档看一遍

 

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

查找子表、孙表数据，合成数据，不会做上传具体实例。

我上传实例了啊，提问题的就是实例 啊

 上传具体foxtable项目。

是这个意思吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:word文档模板的问题.rar

做一个按钮写代码

 

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模板的内容，改成下面的

 

[公司_名称][内容]

感谢，很好用