主题：[求助]word模板引用未关联的表的问题

方法一：

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("违法事实")
        Dim fdr As DataRow = DataTables("法律条文").find("法条编码 = '" & dr("法条编码") & "'")
        str &= "因" & dr("违法事实") & ","
        If fdr IsNot Nothing Then
            str &= fdr("条内容")
        End If
        str &= vbcrlf
    Next
    wrt.ReplaceOne("[内容]", str.trim(chr(13),chr(10),";"))
    wrt.BuildOne(t.Rows(i))
Next

wrt.Show() '显示报表

方法二：法律条文做违法事实的父表，然后子表引用父表的信息 http://www.foxtable.com/webhelp/scr/0106.htm