منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Meshi 3am bi7ki 3ala phone 3indi l 7al nshalah,see you at night.
My regards

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

انا افرض ان لديك بارميتر في التقرير و لنقل اسمه @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
بالتوفيق

الحمد لله تم التوصل الى الحل ، وسأضع الاجابة حتى يستفيد منها من واجهته تلك المشكلة
If IsPostBack Then
Dim ds As New DataSet
Dim cmd As New SqlCommand
Dim con As New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\ClaimDB.mdf;Integrated Security=True")
Try
con.Open()
Dim sql, sql1, sql2 As String

sql = "select * from GHTable "

sql1 = " where GHDate between convert(date,'" & txtFrom.Text & "',103) and convert(date,'" & txtTo.Text & "',103) "
If ListBox2.Items.Count > 0 Then
For i = 0 To ListBox2.Items.Count - 1
If sql2 = "" Then
sql2 = sql2 + "and GHSort=N'" & ListBox2.Items(i).Value.ToString & "' "
Else
sql2 = sql2 + "or GHSort=N'" & ListBox2.Items(i).Value.ToString & "' "
End If
Next
End If
sql = sql + sql1 + sql2
cmd.CommandText = sql
cmd.Connection = con
cmd.CommandType = CommandType.Text

Dim da As New SqlDataAdapter(cmd)
da.Fill(ds)

con.Close()
ReportViewer1.LocalReport.ReportPath = "Reports/ReportGH1.rdlc"
Dim rds As New Microsoft.Reporting.WebForms.ReportDataSource("DataSet1", ds.Tables(0))
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.DataSources.Add(rds)

ReportViewer1.LocalReport.Refresh()
Catch ex As Exception
Label1.Text = "جاري صيانة الموقع"
End Try
End If

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

khodor1985

ابو ليلى

k_medhat