[dell]

مثل ماقال اخي بالباريميتر

كود :

            ' أسم التقريرdorh_basic_data_print_ts7e7hoeh 
            Dim rpt As New dorh_basic_data_print_ts7e7hoeh
            rpt.SetDataSource(ds)
            Dim ParamValue As New CrystalDecisions.Shared.ParameterValues()
            Dim ParamName As New CrystalDecisions.Shared.ParameterDiscreteValue()
            'تغير قيمة TextBox1.Text بالقيمة التي تريد أدخالها
            ParamName.Value = TextBox1.Text
            ParamValue.Add(ParamName)
            ' أسم الباريميتر al3zabe والذي سوف اضعه في التقرير'
            rpt.DataDefinition.ParameterFields("al3zabe").ApplyCurrentValues(ParamValue)


            '  أسم الفورم dorh_basic_data_print_hoehD'
            dorh_basic_data_print_hoehD.CrystalReportViewer1.ReportSource = rpt
            dorh_basic_data_print_hoehD.Show()
            connn.Close()

وغير مايلزم