connecting to Crystal subreports using vb.net

[Craig G]

we have a vb.net app that displays a series of reports

this is all working fine when it is just one report, but if we have a report which contains a subreport then it fails, i assume you need to logon to the subreports also but im not sure how to.

the subreports also require 4 parameter values to be passed to it

any help would be greatly appreciated

Cheers,
Craig

here is the code we use for calling a single report
*************** *************** *************** ***************

Private Function fun_ShowReport( ) As Boolean

Dim obj_Report As New CrystalDecision s.CrystalReport s.Engine.Report Document

Dim frm_Viewer As New frmViewReport

Dim crTableLogonInf o As TableLogOnInfo

Dim crConnectionInf o As ConnectionInfo

Dim crTable As CrystalDecision s.CrystalReport s.Engine.Table

Try

crTableLogonInf o = New TableLogOnInfo

crConnectionInf o = New ConnectionInfo

crConnectionInf o.DatabaseName = g_str_Database

crConnectionInf o.ServerName = g_str_Server

crConnectionInf o.UserID = g_str_Username

crConnectionInf o.Password = g_str_Password

crTableLogonInf o.ConnectionInf o = crConnectionInf o

With obj_Report

..Load(m_str_Re portFilename)

For Each crTable In .Database.Table s

crTable.ApplyLo gOnInfo(crTable LogonInfo)

Next

..SetParameterV alue("@FromDate ", txt_StartDate.S etDBValue)

..SetParameterV alue("@ToDate", txt_EndDate.Set DBValue)

If m_int_ReportNam e <> ReportName.Repo rt_UserFeedback Then

..SetParameterV alue("@Hospital ID", fun_SetNull(cls PharmacyClass.R eportHospital))

..SetParameterV alue("@WardID", fun_SetNull(cls PharmacyClass.R eportWard))

End If

Select Case m_int_ReportNam e

Case ReportName.Repo rt_Intervention

..SetParameterV alue("@PatientI D", 0)

..SetParameterV alue("@Pharmaci stID", fun_SetNull(cls PharmacyClass.R eportPharmacist ))

Dim int_Interventio nComplete As Object

Dim sys_NullValue As System.DBNull

Select Case cbo_Filter.Sele ctedIndex

Case 0

int_Interventio nComplete = sys_NullValue

Case 1

int_Interventio nComplete = 0

Case 2

int_Interventio nComplete = 1

End Select

..SetParameterV alue("@Interven tionComplete", int_Interventio nComplete)

..SetParameterV alue("@int_Mode ", 1)

Case ReportName.Repo rt_MonthlyActiv ity

..SetParameterV alue("@Pharmaci stID", fun_SetNull(cls PharmacyClass.R eportPharmacist ))

End Select

..SetDatabaseLo gon(g_str_Usern ame, g_str_Password, g_str_Server, g_str_Database)

End With

If ysd_Destination .StringValue = "Screen" Then

frm_SuccessMess age.fun_OpenFor m _

("Printing to screen - Please wait....")

frm_Viewer.crv_ ReportViewer.Re portSource = obj_Report

frm_Viewer.Show Dialog()

Else

frm_SuccessMess age.fun_OpenFor m _

("Printing - Please wait....")

obj_Report.Prin tToPrinter(1, True, 0, 0)

End If

Return True

Catch ex As Exception

ErrorMessage("U nable to show report " & _

ControlChars.Cr Lf & "Error Message: " & ex.Message.ToSt ring)

Return False

Finally

obj_Report = Nothing

frm_Viewer = Nothing

End Try

End Function

[Greg Young]

this is C# and its setting the datasource for the subreports but the logic
is almost identical

private void SetReportDataSo urce(ReportDocu ment _Report, DataSet _ds) {
_Report.SetData Source(_ds) ;

for (int i = 0; i < _Report.ReportD efinition.Repor tObjects.Count; i++) {
ReportObject CurrentObject = _Report.ReportD efinition.Repor tObjects[i];

if(CurrentObjec t.Kind ==
CrystalDecision s.Shared.Report ObjectKind.Subr eportObject) {
ReportDocument SubReport =
_Report.OpenSub report(((Subrep ortObject)Curre ntObject).Subre portName);
SetReportDataSo urce(SubReport, _ds) ;
}
}
}

so in vb.net the basic logic is ...
private sub SetReportLogon( ByVal Report as ReportDocument)
int i

'set logon info

for i = 0 to Report.ReportDe finition.Report Objects.Count - 1
dim CurrentObject as ReportObject=
Report.ReportDe finition.Report Objects[i]

if CurrentObject.K ind =
CrystalDecision s.Shared.Report ObjectKind.Subr eportObject
dim SubReport as ReportDocument =
_Report.OpenSub report(directca st(CurrentObjec t,subreportobje ct).SubreportNa m
e)
SetReportDataSo urce(SubReport)
end if
next
end sub

Cheers,

Greg

[CJ Taylor]

Thanks greg, I know this wasn't for me. But greatly helped!

-CJ

"Greg Young" <gr********@pla netbeach.com> wrote in message
news:Ob******** ******@TK2MSFTN GP11.phx.gbl...

this is C# and its setting the datasource for the subreports but the logic
is almost identical

private void SetReportDataSo urce(ReportDocu ment _Report, DataSet _ds) {
_Report.SetData Source(_ds) ;

for (int i = 0; i < _Report.ReportD efinition.Repor tObjects.Count; i++) { ReportObject CurrentObject = _Report.ReportD efinition.Repor tObjects[i];
if(CurrentObjec t.Kind ==
CrystalDecision s.Shared.Report ObjectKind.Subr eportObject) {
ReportDocument SubReport =
_Report.OpenSub report(((Subrep ortObject)Curre ntObject).Subre portName);
SetReportDataSo urce(SubReport, _ds) ;
}
}
}

so in vb.net the basic logic is ...
private sub SetReportLogon( ByVal Report as ReportDocument)
int i

'set logon info

for i = 0 to Report.ReportDe finition.Report Objects.Count - 1
dim CurrentObject as ReportObject=
Report.ReportDe finition.Report Objects[i]

if CurrentObject.K ind =
CrystalDecision s.Shared.Report ObjectKind.Subr eportObject
dim SubReport as ReportDocument =
_Report.OpenSub report(directca st(CurrentObjec t,subreportobje ct).SubreportNa m e)
SetReportDataSo urce(SubReport)
end if
next
end sub

Cheers,

Greg

[Greg Young]

glad I could help.
"CJ Taylor" <[cege] at [tavayn] dit commmmm> wrote in message
news:Oi******** ******@TK2MSFTN GP12.phx.gbl...

Thanks greg, I know this wasn't for me. But greatly helped!

-CJ

"Greg Young" <gr********@pla netbeach.com> wrote in message
news:Ob******** ******@TK2MSFTN GP11.phx.gbl...

this is C# and its setting the datasource for the subreports but the logic is almost identical

private void SetReportDataSo urce(ReportDocu ment _Report, DataSet _ds) { _Report.SetData Source(_ds) ;

for (int i = 0; i < _Report.ReportD efinition.Repor tObjects.Count; i++)

{

ReportObject CurrentObject =

_Report.ReportD efinition.Repor tObjects[i];

if(CurrentObjec t.Kind ==
CrystalDecision s.Shared.Report ObjectKind.Subr eportObject) {
ReportDocument SubReport =
_Report.OpenSub report(((Subrep ortObject)Curre ntObject).Subre portName);
SetReportDataSo urce(SubReport, _ds) ;
}
}
}

so in vb.net the basic logic is ...
private sub SetReportLogon( ByVal Report as ReportDocument)
int i

'set logon info

for i = 0 to Report.ReportDe finition.Report Objects.Count - 1
dim CurrentObject as ReportObject=
Report.ReportDe finition.Report Objects[i]

if CurrentObject.K ind =
CrystalDecision s.Shared.Report ObjectKind.Subr eportObject
dim SubReport as ReportDocument =

_Report.OpenSub report(directca st(CurrentObjec t,subreportobje ct).SubreportNa m e)
SetReportDataSo urce(SubReport)
end if
next
end sub

Cheers,

Greg