21-05-16, 08:11 PM
Meshi 3am bi7ki 3ala phone 3indi l 7al nshalah,see you at night.
My regards
My regards
واعبد ربك حتى يأتيك اليقين
[سؤال] باراميتر و LISTBOX
|
21-05-16, 08:11 PM
Meshi 3am bi7ki 3ala phone 3indi l 7al nshalah,see you at night.
My regards واعبد ربك حتى يأتيك اليقين
21-05-16, 09:10 PM
اخي الكريم رغم اني لم افهم السؤال بشكل جيد لو انك وضحت اكثر لجائت المساعدة سريعا
انا افرض ان لديك بارميتر في التقرير و لنقل اسمه @Par1 و انت تريد اسناد قيمة لهذا الباراميتر وفق القيمة المختارة من ListBox الان في النموذج ساقوم بعمل اجراء خاص بهذا البارميتر كما يلي كود : Private Sub LoadPar() ثم استدعي هذا الاجراء في المكان المناسب لك و اذا اردت ان تكون قيمة الباراميتر متغيرة حسب طلبك اجعل البارميتر Param1 بارميتر للاجراء LoadPar بالتوفيق اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
23-05-16, 07:21 PM
الحمد لله تم التوصل الى الحل ، وسأضع الاجابة حتى يستفيد منها من واجهته تلك المشكلة
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 تم الشكر بواسطة: العزابي
|
|