'Dim param(0) As ReportParameter Dim name(0) As ReportParameter Dim fname(0) As ReportParameter Dim level(0) As ReportParameter Dim from(0) As ReportParameter Dim too(0) As ReportParameter Dim dur(0) As ReportParameter Dim score(0) As ReportParameter Dim iss(0) As ReportParameter ' param(0) = New ReportParameter("txt", txtrpt.Text) name(0) = New ReportParameter("name", TextBox1.Text) fname(0) = New ReportParameter("fname", TextBox2.Text) level(0) = New ReportParameter("level", TextBox3.Text) from(0) = New ReportParameter("from", TextBox4.Text) too(0) = New ReportParameter("to", TextBox5.Text) dur(0) = New ReportParameter("dur", TextBox6.Text) score(0) = New ReportParameter("score", TextBox7.Text) iss(0) = New ReportParameter("iss", TextBox8.Text) ' Me.rpt3.LocalReport.SetParameters(param) Me.rpt3.LocalReport.SetParameters(name) Me.rpt3.LocalReport.SetParameters(fname) Me.rpt3.LocalReport.SetParameters(level) Me.rpt3.LocalReport.SetParameters(from) Me.rpt3.LocalReport.SetParameters(too) Me.rpt3.LocalReport.SetParameters(dur) Me.rpt3.LocalReport.SetParameters(score) Me.rpt3.LocalReport.SetParameters(iss) Me.rpt3.RefreshReport()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)