[محمود صالح]

(02-11-17, 02:32 AM)طـلال كتب : نفس المشكله والله

ده كود شبيه به خذ منه ما تشاء

كود :

      Dim ds As DataSet = S_CON.SELECT_DS("Select * from BILL_T where  NUMBER_T LIKE '" & TextBox4.Text & "'AND NAME_T like '" & GroupPanel2.Text & "' ", dt:="BILL_T")
      Dim rd As New ReportDataSource("DataSet1", ds.Tables("BILL_T"))
      F_REPORT.ReportViewer1.LocalReport.DataSources.Clear()
      F_REPORT.ReportViewer1.LocalReport.DataSources.Add(rd)
      F_REPORT.ReportViewer1.LocalReport.ReportEmbeddedResource = "m_pro.Report_BILL.rdlc"
      Dim pp As New Generic.List(Of ReportParameter)
      pp.Add(New ReportParameter("RP1", GroupPanel2.Text))
      pp.Add(New ReportParameter("RP2", TextBox11.Text))
      pp.Add(New ReportParameter("RP3", DateTimePicker1.Text))
      pp.Add(New ReportParameter("RP4", TextBoxX4.Text))
      pp.Add(New ReportParameter("RP5", TextBoxX5.Text))
      pp.Add(New ReportParameter("RP6", TextBoxX7.Text))
      F_REPORT.ReportViewer1.LocalReport.SetParameters(pp)
      F_REPORT.ReportViewer1.RefreshReport()
      F_REPORT.ShowDialog()