Re: VB.NET Programming Corner! UPDATED!!!
mga sir patulong po sa crystal report, ang shinoshow nya po kasi ay yung pinaka last data entry.... tska po panu po alisin ung databaselogin/authentication... every time po kasi na mag oopen aq nang crystal report need ko pa mag login para makita ung report e2 po ung code ko
Dim frm As New PClearViewer
PClearViewer.Show()
Dim param1Fileds As New CrystalDecisions.Shared.ParameterFields
Dim param1Field As New CrystalDecisions.Shared.ParameterField
Dim param1Range As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim CRYRpt1 As New PClearance_Form
param1Field.ParameterFieldName = "xclearanceno" ' Parameter Name In Crystal Report
param1Range.Value = txtClearanceNo.Text ' value For Parameter Field
param1Field.CurrentValues.Add(param1Range)
param1Fileds.Add(param1Field) ' To add parameter in parameterslist
PClearViewer.CrystalReportViewer1.ParameterFieldInfo = param1Fileds 'to pass parameter inf.to CRV
PClearViewer.CrystalReportViewer1.ReportSource = CRYRpt1 ' Assign Report Source to CRV
PClearViewer.CrystalReportViewer1.Refresh()
PClearViewer.CrystalReportViewer1.Visible = True
mga sir patulong po sa crystal report, ang shinoshow nya po kasi ay yung pinaka last data entry.... tska po panu po alisin ung databaselogin/authentication... every time po kasi na mag oopen aq nang crystal report need ko pa mag login para makita ung report e2 po ung code ko
Dim frm As New PClearViewer
PClearViewer.Show()
Dim param1Fileds As New CrystalDecisions.Shared.ParameterFields
Dim param1Field As New CrystalDecisions.Shared.ParameterField
Dim param1Range As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim CRYRpt1 As New PClearance_Form
param1Field.ParameterFieldName = "xclearanceno" ' Parameter Name In Crystal Report
param1Range.Value = txtClearanceNo.Text ' value For Parameter Field
param1Field.CurrentValues.Add(param1Range)
param1Fileds.Add(param1Field) ' To add parameter in parameterslist
PClearViewer.CrystalReportViewer1.ParameterFieldInfo = param1Fileds 'to pass parameter inf.to CRV
PClearViewer.CrystalReportViewer1.ReportSource = CRYRpt1 ' Assign Report Source to CRV
PClearViewer.CrystalReportViewer1.Refresh()
PClearViewer.CrystalReportViewer1.Visible = True