[طـلال]

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

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

جربت الكود هذا 

كود :

report.SetParameterValue(0, User_login)

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


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

كود :

report.SetParameterValue("parm1", User_login)

[السيد الجوهري]

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

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

[طـلال]

هذا الكود : 

كود :

 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

[HASAN6.0]

ارفق المشروع

[طـلال]

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

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

[a.ahmed]

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 


[طـلال]

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

[محمود صالح]

(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()

[طـلال]

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

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

[محمود صالح]

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

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

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