代码
If Tables("收费明细").Current("条目总额") = 0 Then
Dim tm As String = ProjectPath & "Attachments\收费模板.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\收费模板.doc" '指定目标文件
Dim wrt As New WordReport(Tables("收费明细"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
Else
Dim tm As String = ProjectPath & "Attachments\收费模板-条目模式.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\收费模板-条目模式.doc" '指定目标文件
Dim wrt As New WordReport(Tables("收费明细"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
End If
错误提示
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.9.8.1
错误所在事件：
详细错误信息：
无法将类型为“Microsoft.Office.Interop.Word.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Word._Application”。此操作失败的原因是对 IID 为“{00020970-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 加载类型库/DLL 时出错。 (异常来自 HRESULT:0x80029C4A (TYPE_E_CANTLOADLIBRARY))。
加好友 
发短信
Post By：2021/7/16 14:33:00 [只看该作者]
