老师,在窗口中显示word报表运行时项目自动退出了。是什么原因呢?
按以下方法设置的:
新建一个窗口(建议使用模式窗口或独立窗口),在窗口中加入一个WebBrowser控件,窗口的AfterLoad事件代码设置为:
Dim tmp As String = ProjectPath & "Attachments\资料卡.doc" Dim rep As String = ProjectPath & "Reports\资料卡.doc" Dim mht As String = ProjectPath & "Reports\资料卡.mhtml"Dim wrt As New WordReport(Tables("员工"),tmp,rep) wrt.Build() wrt.SaveToMHT(mht)wrt.Quite.Form.Controls("WebBrowser1").Address = mht