试试
Dim t As Table = Tables("基本信息")
For i As Integer = t.TopPosition To t.BottomPosition
Dim tm As String = ProjectPath & "Attachments\回执.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\" '指定目标文件
Dim dr As DataRow
Dim wfss As String = ""
For Each dr In t.Rows(i).DataRow.GetChildRows("违法及处理情况")
wfss &= dr("违法事实") & ","
fl &= "回执(" & dr("案件编号") & ").doc"
Next
If FileSys.FileExists(fl) Then
FileSys.DeleteFile(fl)
End If
Dim wrt As New WordReport(t,tm,fl) '定义一个WordReportTable: 要打印的表(Table)或表的名称
wrt.ReplaceOne("[全部违法事实]", wfss.trim(","))
wrt.BuildOne(t.Rows(i))
wrt.quit() '显示报表
Next
加好友 
发短信
Post By：2017/8/11 21:30:00 [显示全部帖子]
