Dear All,
I have to display 2 reports in VS2010 as one. So what I am using is sub-report. but the thing is I don't know how to display data from my db in the sub report. please see code below.
the data to be displayed on the textbox for the sub report is not appearing. please advise.
thanks
ashley
I have to display 2 reports in VS2010 as one. So what I am using is sub-report. but the thing is I don't know how to display data from my db in the sub report. please see code below.
Code:
Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptdoc = New CrystalReport2 'main report
Dim rptdoc2 As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptdoc2 = New CrystalReport3 'sub report
Dim localid As TextObject = rptdoc.ReportDefinition.ReportObjects("Text6")
localid.Text = DataGridView1.Item(0, i).Value.ToString 'textbox on main report
Dim localid2 As TextObject = rptdoc2.ReportDefinition.ReportObjects("Text13")
localid2.Text = DataGridView1.Item(0, i).Value.ToString 'textbox on sub report
Dim barcode As TextObject = rptdoc.ReportDefinition.ReportObjects("Text8")
barcode.Text = "*" & DataGridView1.Item(0, i).Value.ToString & "*"
Dim date1 As TextObject = rptdoc.ReportDefinition.ReportObjects("Text5")
date1.Text = Date.Now.ToShortDateString
objdataset = New DataSet
sqldataAdapter = New SqlDataAdapter
sqldataAdapter.SelectCommand = New SqlCommand
sqldataAdapter.SelectCommand.Connection = objconnection
sqldataAdapter.SelectCommand.CommandText = "Select NameAddofAdd from [" & cagenumber & "] where LocalID='" & DataGridView1.Item(0, i).Value.ToString & "'"
objconnection.Open()
sqldataAdapter.Fill(objdataset, cagenumber)
objconnection.Close()
Dim namenaddress As TextObject = rptdoc.ReportDefinition.ReportObjects("Text10")
namenaddress.Text = objdataset.Tables(0).Rows(0).Item(0).ToString
Dim f As New ViewPS94
f.CrystalReportViewer1.ReportSource = rptdoc
f.Show()thanks
ashley