- PR -

CRYSTAL REPORT 10

1
投稿者投稿内容
タイガースマスク２
会議室デビュー日: 2004/07/20
投稿数: 6
投稿日時: 2004-07-20 16:49
COLD FUSION と　CRYSTAL REPORT を使ってシステム開発しています。
先日までCRYSTAL ENTERPRISE 8.5 を使って開発していたのですが
CRYSTAL ENTERPRISE 10 にバージョンアップすると
帳票のビューアーは立ち上がるのですが
中身が表示されません。

<A href="javascript:close()">Close</A>

<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100%
HEIGHT=92%
CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=1,0,0,0">
<PARAM NAME="EnableRefreshButton" VALUE=1>
<PARAM NAME="EnableGroupTree" VALUE=0>
<PARAM NAME="DisplayGroupTree" VALUE=0>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=0>
<PARAM NAME="EnableDrillDown" VALUE=0>
<PARAM NAME="EnableSearchControl" VALUE=0>
<PARAM NAME="EnableAnimationControl" VALUE=0>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>

<CFOUTPUT>
<SCRIPT LANGUAGE="VBScript">
<!--
sub window_onload()
page_Initialize()
end sub

Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker")
if err.number <> 0 then
window.alert "Seagate Software ActiveX Viewer でリソース オブジェクトを作成することができません。この問題を解決するためには、Internet Explorer 4.0 をインストールするか、あるいは DCOM for Windows 95 と 最新の Microsoft スクリプト エンジンをインストールしてください。これらのファイルは Microsoft のウェブ サイトからダウンロードすることができます。"
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource")
webSource.ReportSource = webBroker
webSource.URL = "#rep#&user0=sa&password0=sa&user0@test=sa&password0@test=sa&user0@test2=sa&password0@test2=sa"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
<!--- CRViewer.PrintReport() --->
End Sub
-->
</SCRIPT>


何か良いアドバイスがあればお願いいたします。
1

スキルアップ／キャリアアップ（JOB@IT）