[WR2.0] wrGetReportTitleについて

[小峰]

VB5(SP3)でのWR2.0のwrGetReportTitleについてお聞きします。（VBのサンプルに使用例が見当たらなかったので）

wrLoadReport関数でレポートをロードし（エラーなし）、取得したレポートハンドルを用いてwrGetReportTitle関数を実行していますが、「指定されたパラメータに誤りがあります。コード＝08006」となり、文字列が取得できません。

第１パラメータにはwrLoadReportで取得したハンドル（Long値）、第２パラメータには　Dim sTemp As String と宣言した文字列を使用しています。sTempには「レポートの設定」ウインドウの「レポート名」が取得できると期待しているのですが、先の8006エラーとなり、空文字列が返ってきます。

レポート名を取得するには、どのようにしたら良いか教えてください。

[星野＠SoftWing]

お世話になっております、ソフトウィングの星野です。

wrGetReportTitle関数でレポートタイトルが取得できないとの事ですが、
タイトルを格納する変数をあらかじめ初期化しておく必要があります。
例では空文字にて初期化しております。

具体的な処理手順につきましては下記の通りです。

Dim str As String ‘ﾌｧｲﾙ名格納用
Dim LenCnt As Long ‘文字数格納用
Dim hReport As Long ‘レポートハンドル格納用変数

‘レポートファイルのロード
hReport = wrLoadReport(App.Path & “sample.wrp”)

‘strを255文字分の空文字で初期化します。
str = Space(255)

‘wrGetReportTitleの実行
Call wrGetReportTitle(hReport, str)

‘先頭からNULL文字までの文字数を取得
LenCnt = InStr(str, Chr(0)) – 1

‘取得数文の文字列を抽出
str = Mid(str, 1, LenCnt)

以上です。よろしくお願いいたします。

[小峰]

お世話になっております。

教えて頂いたように、文字列を初期化することで、タイトルを取得することができました。
ありがとうございました。

[投稿者]

投稿