منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكله في برمتر التقرير ...!!! جنًنًي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكله في برمتر التقرير ...!!! جنًنًي (/showthread.php?tid=22356)

الصفحات: 1 2

مشكله في برمتر التقرير ...!!! جنًنًي - طـلال - 01-11-17

السـلام عليكم 
صـباح الرضى والغفران يارب 

أنا عندي تقرير وضعت له قيمه مدخله من متغير string 
لما أطبق التقرير طبعاً المتغير فيه قيمه 

جربت الكود هذا 
كود :
report.SetParameterValue(0, User_login)

ولا زال يظهر لي المربع تبع تمرير( Enter arameterValue


وجربت الطريقه هاذي 

كود :
report.SetParameterValue("parm1", User_login)


RE: مشكله في برمتر التقرير ...!!! جنًنًي - السيد الجوهري - 01-11-17

قم باخفاء زر  Refresh من التقرير

أو ضع الكود كامل  للمراجعتة

RE: مشكله في برمتر التقرير ...!!! جنًنًي - طـلال - 01-11-17

هذا الكود : 

كود :
 Dim RPO As New CRT_KAL


       DA = New SqlClient.SqlDataAdapter("SELECT * FROM [TBL_Shefbu] WHERE [Code_Shft]='" & TextBox1.Text & "'", CONDATABASE)
       DT = New DataTable
       DT.Clear()
       DA.Fill(DT)
       If DT.Rows.Count > 0 Then
           RPO.SetDataSource(DT)
           frm_allrepoerts.CrystalReportViewer1.Refresh()
           frm_allrepoerts.CrystalReportViewer1.ReportSource = RPO
           RPO.SetParameterValue(0, User_Login)
           'frm_allrepoerts.Show()

       Else
           MsgBox("لم يتم العثور على تقرير بهذا الرقم ", MsgBoxStyle.Critical, "عدم عثور بيانات")
       End If


RE: مشكله في برمتر التقرير ...!!! جنًنًي - HASAN6.0 - 01-11-17

ارفق المشروع

RE: مشكله في برمتر التقرير ...!!! جنًنًي - طـلال - 01-11-17

(01-11-17, 10:46 AM)HASAN6.0 كتب : ارفق المشروع

المشـروع كبير جداً ولا أستطيع أرفاقه

RE: مشكله في برمتر التقرير ...!!! جنًنًي - a.ahmed - 01-11-17

PHP كود :
DA = New SqlClient.SqlDataAdapter("SELECT * FROM [TBL_Shefbu] WHERE [Code_Shft]=@code", CONDATABASE)
DA.SelectCommand.Parameters.AddWithValue("@code", TextBox1.Text)
DT = New DataTable
DA.Fill(DT)
If DT.Rows.Count > 0 Then
    Dim RPO As New CRT_KAL
    RPO.SetDataSource(DT)
    RPO.SetParameterValue("parm1", User_Login)

    frm_allrepoerts.CrystalReportViewer1.ReportSource = RPO
    frm_allrepoerts.Show()

Else
    MsgBox("لم يتم العثور على تقرير بهذا الرقم ", MsgBoxStyle.Critical, "عدم عثور بيانات")

End If 


RE: مشكله في برمتر التقرير ...!!! جنًنًي - طـلال - 02-11-17

نفس المشكله والله

RE: مشكله في برمتر التقرير ...!!! جنًنًي - محمود صالح - 02-11-17

(02-11-17, 02:32 AM)طـلال كتب : نفس المشكله والله

ده كود شبيه به خذ منه ما تشاء

كود :
      Dim ds As DataSet = S_CON.SELECT_DS("Select * from BILL_T where  NUMBER_T LIKE '" & TextBox4.Text & "'AND NAME_T like '" & GroupPanel2.Text & "' ", dt:="BILL_T")
      Dim rd As New ReportDataSource("DataSet1", ds.Tables("BILL_T"))
      F_REPORT.ReportViewer1.LocalReport.DataSources.Clear()
      F_REPORT.ReportViewer1.LocalReport.DataSources.Add(rd)
      F_REPORT.ReportViewer1.LocalReport.ReportEmbeddedResource = "m_pro.Report_BILL.rdlc"
      Dim pp As New Generic.List(Of ReportParameter)
      pp.Add(New ReportParameter("RP1", GroupPanel2.Text))
      pp.Add(New ReportParameter("RP2", TextBox11.Text))
      pp.Add(New ReportParameter("RP3", DateTimePicker1.Text))
      pp.Add(New ReportParameter("RP4", TextBoxX4.Text))
      pp.Add(New ReportParameter("RP5", TextBoxX5.Text))
      pp.Add(New ReportParameter("RP6", TextBoxX7.Text))
      F_REPORT.ReportViewer1.LocalReport.SetParameters(pp)
      F_REPORT.ReportViewer1.RefreshReport()
      F_REPORT.ShowDialog()


RE: مشكله في برمتر التقرير ...!!! جنًنًي - طـلال - 02-11-17

يعطيكم العافيه كلكم 

الكوديين الأخيره تعمل بس لازم رفرش قبل العرض

RE: مشكله في برمتر التقرير ...!!! جنًنًي - محمود صالح - 04-11-17

(02-11-17, 11:04 PM)طـلال كتب : يعطيكم العافيه كلكم 

الكوديين الأخيره تعمل بس لازم رفرش قبل العرض

معلش سؤال وايه الضرر من الريفرش