[ابو ليلى]

اخي الكريم رغم اني لم افهم السؤال بشكل جيد  لو انك وضحت اكثر لجائت المساعدة سريعا

انا افرض ان لديك بارميتر في التقرير و لنقل اسمه @Par1 و انت تريد اسناد قيمة لهذا الباراميتر وفق القيمة المختارة من ListBox

الان في النموذج ساقوم بعمل اجراء خاص بهذا البارميتر كما يلي

كود :

   Private Sub LoadPar()
       Dim Param1 As New ReportParameter
       Param1.Name = "par1"

       Param1.Values.Add(ListBox1.SelectedItem.ToString)

       ReportViewer1.LocalReport.SetParameters(New ReportParameter() {Param1})
       Me.ReportViewer1.RefreshReport()
   End Sub

ثم استدعي هذا الاجراء في المكان المناسب لك و اذا اردت ان تكون قيمة الباراميتر متغيرة حسب طلبك اجعل البارميتر Param1 بارميتر للاجراء  LoadPar
بالتوفيق