
Showing parameters pass to data environment in data report header
The calling program must set the values on the report. You can do it like
this:
Create two labels in the ReportHeader section of your report to contain the
dates:
lblDateDebut and lblDateFin
In the vb program:
Dim lblRptDateDebut as RptLabel
Dim lblRptDateFin as RptLabel
With RptConceptoNAS
Set lblRptDateDebut = .Section("ReportHeader").Controls("lblDateDebut")
Set lblRptDateFin = .Section("ReportHeader").Controls("lblDateFin")
lblRptDateDebut.Caption = DTPickerDebut.Value
lblRptDateFin.Caption = DTPickerFin.Value
.Refresh
If Not .Visible Then .Show
End With
Quote:
> I pass a range of date to my report using the following code.
> With DeConceptoNAS
> If .rsSQLlisteParticipant.State <> 0 Then
.rsSQLlisteParticipant.Close
Quote:
> .SQLlisteParticipant CDate(DTPickerDebut.Value),
CDate(DTPickerFin.Value)
Quote:
> End With
> RptConceptoNAS.Refresh
> If Not RptConceptoNAS.Visible Then RptConceptoNAS.Show
> The data show is correctly.
> But now I want to show the date range in my report title (ReportHeader).
> How can this be done ?
> Thanks in advance for your help
> Christian Paquet
> Analyst Programmer