老师好,在窗口afterload中加入如下代码,但提示以下错误信息:请老师帮忙指正
.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.8.19.1
错误所在事件:窗口,RS485芯片检验作业指导书,AfterLoad
详细错误信息:
服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))
afterload事件的代码:
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\RS485芯片检验作业指导书.xls"
Dim rpt As String = ProjectPath & "Reports\RS485芯片检验作业指导书.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt)
wbr.OfficeToolBar = True
wbr.AddRess = rpt
Dim tr As WinForm.TreeView
tr = Forms("RS485芯片检验作业指导书").Controls("TreeView1")
tr.Nodes(0).ExpandAll()
tr.Nodes(0).Nodes(10).Ic
tr.Nodes(0).Nodes(10).BackColor = Color.lavender