在窗口显示Word报表
如果还没有接触过窗口设计,可以暂时忽略本节的内容。
在默认情况下,Foxtable会直接启动Word来显示生成的Word报表。
我们也可以
借助WebBrowser控件,直接在窗口显示生成的Word报表。
要在WebBrowser显示Word报表,必须将生成的Word报表保存为网页,WordReport为此提供了两个方法:
SaveToMHT(FileName)
用于将Word报表保存为一个MHTML(单一网页)文件,所有网页内容(包括图片、代码、样式等)都存储这个文件中。
SaveToHTML生成的是常规的HTML文件文件,兼容性好,但会产生多个文件。
SaveToMHT只生成一个文件,使用更方便,但并非所有的浏览器支持MHTML文件,所以兼容性差一些。
不过WebBrowser控件可以完美地显示MHTML文件,所以在窗口显示Word报表时,通常使用SaveToMHT方法。
示例
新建一个窗口(建议使用模式窗口或独立窗口),在窗口中加入一个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.Quit
e.Form.Controls("WebBrowser1").Address
= mht
这样一打开窗口,就会自动在窗口的WebBrowser控件显示生成的Word报表。