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

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

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

先把foxtable帮助文档看一遍

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

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

做一个按钮写代码

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

[公司_名称][内容]