Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") Dim tm As String = ProjectPath & "Attachments\人事\生产合同.doc" Dim fl As String = ProjectPath & "Reports\生产合同.doc" Dim wrt As New WordReport(Tables("生产进度表"),tm,fl) wrt.Build() wrt.Quit() wbr.AddRess = fl