- - PR -
VB6.0&クリスタルレポートV10
1
投稿者 | 投稿内容 |
---|---|
|
投稿日時: 2005-03-25 15:09
画面で取得した検索条件を、
レポート用抽出パラメータセットしたいのですが、 そのコードの書き方を教えて下さい! |
|
投稿日時: 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