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

الصفحات : 1 2

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

أنا عندي تقرير وضعت له قيمه مدخله من متغير 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

ارفق المشروع

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

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

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)طـلال كتب : [ -> ]يعطيكم العافيه كلكم

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

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

الصفحات : 1 2

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

طـلال

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

طـلال

HASAN6.0

طـلال

a.ahmed

طـلال

محمود صالح

طـلال

محمود صالح