منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] باراميتر و LISTBOX - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : [سؤال] باراميتر و LISTBOX (/showthread.php?tid=14155)

الصفحات: 1 2

RE: باراميتر و LISTBOX - khodor1985 - 21-05-16

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

RE: باراميتر و LISTBOX - ابو ليلى - 21-05-16

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

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

RE: باراميتر و LISTBOX - k_medhat - 23-05-16

الحمد لله تم التوصل الى الحل ، وسأضع الاجابة حتى يستفيد منها من واجهته تلك المشكلة
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