需要使用代码处理，例如：http://www.foxtable.com/help/scr/2890.htm
代码编辑器注意加上这3个单引号
'''
Dim tm As String = ProjectPath & "Attachments\zbv.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\zbv.doc" '指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) '定义一个WordReport
wrt.ReplaceOne("<多值>","□1" & vbcr & "? 2" & vbcr & "□3" & vbcr & "? 4")
wrt.BuildOne(Tables("订单").Current)
wrt.Show() '显示报表
[此贴子已经被作者于2018/3/31 15:35:23编辑过]
加好友 
发短信
Post By：2018/3/31 15:29:00 [显示全部帖子]
