- PR -

VB6.0&クリスタルレポートV10

1
投稿者投稿内容
未記入
会議室デビュー日: 2005/03/25
投稿数: 3
投稿日時: 2005-03-25 15:09
画面で取得した検索条件を、
レポート用抽出パラメータセットしたいのですが、
そのコードの書き方を教えて下さい!
GTG
常連さん
会議室デビュー日: 2004/08/26
投稿数: 43
投稿日時: 2005-03-26 01:56
画面とはVBフォームのことでしょうか。

例えば、日付のパラメータに年(Text1)、月(Text2)、日(Text3)を設定する場合、
以下のような記述でになります。

Dim r_Application As CRAXDRT.Application
Dim r_Report As CRAXDRT.Report
Dim r_Param As CRAXDRT.ParameterFieldDefinition
Dim i As Integer
Set r_Application = CreateObject("Crystalruntime.Application")
Set r_Report = r_Application.OpenReport(App.Path & "\\test.rpt",1)

For i = 1 To r_Report.ParameterFields.Count
Set r_Param = r_Report.ParameterFields.Item(i)
If r_Param.Name = "{?日付}" Then
r_Param.AddCurrentValue DateSerial(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))
End If
Next i

CRViewer1.ReportSource = r_Report
CRViewer1.ViewReport
Set r_Param = Nothing
Set r_Report = Nothing
Set r_Application = Nothing
1

スキルアップ/キャリアアップ(JOB@IT)