请参考下面链接里面的内容手工编写
Dim tm As String = ProjectPath & "Attachments\模板.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\模板.doc" '指定目标文件
Dim wrt As New WordReport(Tables("体检导验单"),tm,fl) '定义一个WordReport
For Each r As Row In Tables("体检导验单").Rows '逐行生成报表
Dim str() as String = r(“体检项目”).Split(",")
Dim temp as String = ""
for each s as string in str
if temp > "" then
temp = temp & vbcrlf & s
else
temp = s
end if
next
wrt.ReplaceOne("[体检项目]",temp)
wrt.BuildOne(r)
Next
wrt.Show() '显示报表
加好友 
发短信
Post By：2015/8/30 20:04:00 [显示全部帖子]
