我测试没有问题，上传实例说明
Dim tm As String = ProjectPath & "Attachments\出库单.doc"
Dim fl As String = ProjectPath & "Reports\出库单.doc"
Dim mht As String = ProjectPath & "Reports\出库单.mhtml"
Dim wrt As New WordReport(tm,fl)
wrt.AddDataTable("出库","","Select * from {出库} where 出库单编号= 'CK-20030726002'") '添加父表
wrt.AddDataTable("出库明细","","Select * from {出库明细} where 出库单编号= 'CK-20030726002'") '添加子表
wrt.AddRelation("出库","出库单编号","出库明细","出库单编号") '建立关联
wrt.Build()
wrt.SaveToMHT(mht)
wrt.Quit
e.Form.Controls("WebBrowser1").Address = mht
加好友 
发短信
Post By：2020/12/26 8:56:00 [显示全部帖子]
