//Preview button logic(using form load):
Private Sub frmLDCAPSView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myRpt As New ReportDocument
myRpt.Load(ReportName)
myRpt.RecordSelectionFormula = ReportSelectionFormula
myRpt.DataDefinition.RecordSelectionFormula = ReportSelectionFormula
myRpt.DataDefinition.FormulaFields("formula1").Text = Tab1
myRpt.DataDefinition.FormulaFields("formula2").Text = Tab2
myRpt.DataDefinition.FormulaFields("formula3").Text = Tab3
myRpt.DataDefinition.FormulaFields("formula4").Text = Tab4
myRpt.DataDefinition.FormulaFields("formula5").Text = Tab5
myRpt.DataDefinition.FormulaFields("formula6").Text = Tab6
myRpt.DataDefinition.FormulaFields("formula7").Text = Tab7
myRpt.DataDefinition.FormulaFields("formula8").Text = Tab8
myRpt.DataDefinition.FormulaFields("formula9").Text = Tab9
myRpt.DataDefinition.FormulaFields("formula10").Text = Tab10
CrystalReportViewer1.ReportSource = myRpt
CrystalReportViewer1.RefreshReport()
End Sub
Tab1 thru Tab10 set to actual string or null when using this logic.
Sample uses standard viewer control.