رسالة خطأ تظهر في تقرير دون التقارير الاخرى

وما هو الفرق بين هذا التقارير وبين التقارير الاخري التي تعمل طرفك ؟

جزاكم الله خيرا لسرعة استجابتك كما عهدناك

لا يوجد فرق كلهم قمت بتصميمهم بالكريستال 10 وربطتهم بالبرنامج

لان حينما قمت بتصميمهم بالفيجوال (الكريستال ريبورت ) كان لا يفتحهم بعد تحزيم البرنامج

السلام عليكم

المشكلة تم حليها

لاني اكتشفت ان الرسالة سببها تغيير مكان قاعدة البيانات

بس المشكلة أكيد ستظهر عند الانتهاء من البرنامج وتثبيته فما الحل

اتمني ان تفيدك الروابط

حل مشكلة TableLogOnInfo أثناء فتح تقرير الكريستال ريبورت "التقرير لا يستطيع تحديد مسار القاعده"

مثال علي طريقة حل مشكلة TabelLogOnInfo

    Private Sub bill_show_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        
        If rpt = "bill_rep" Then
            Dim ds As New DataSet
            Dim x As Integer = bill_frm.txt_cUS_id.Text
            Dim da As New OleDb.OleDbDataAdapter("select * from bill_info INNER JOIN item_sold ON bill_info.bill_id = item_sold.ibill_no  where bill_info.Bill_id =" & dts, con)
            Dim da1 As New OleDb.OleDbDataAdapter("select * from pynt", con)
            Dim da2 As New OleDb.OleDbDataAdapter("select cus_mont,cus_depit from cus where id_cus=" & x, con)
            con.Open()

            da.Fill(ds, "Bill_info, Item_Sold")
            da1.Fill(ds, "pynt")
            da2.Fill(ds, "cus")
            Dim obj As New ReportDocument
            obj.Load(Application.StartupPath & "\report\bill_rep.rpt")
            obj.Database.Tables(0).SetDataSource(ds.Tables("Bill_info, Item_Sold"))
            CRV_BILL.ReportSource = obj
            CRV_BILL.Refresh()


            con.Close()
        End If
    End Sub
End Class

جزاك الله خير أستاذ محمد

بس لو أمكن ممكن تعدل لي على الكود التالي لاني لم استطع التطبيق وجزاكم الله خير

    Private Sub bill_show_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If con.State = ConnectionState.Open Then
            con.Close()
        End If

        Dim crtableLogoninfos As New TableLogOnInfos()
        Dim crtableLogoninfo As New TableLogOnInfo()
        Dim crConnectionInfo As New ConnectionInfo()
        Dim CrTables As Tables
        Dim CrTable As Table
        Dim obj As New ReportDocument()
        With crConnectionInfo
            .DatabaseName = Application.StartupPath & "\database\masbagha.mdb"

        End With


        If rpt = "bill_rep" Then
            Dim ds As New DataSet
            Dim x As Integer = bill_frm.txt_cUS_id.Text
            Dim da As New OleDb.OleDbDataAdapter("select * from bill_info INNER JOIN item_sold ON bill_info.bill_id = item_sold.ibill_no  where bill_info.Bill_id =" & dts, con)
            Dim da1 As New OleDb.OleDbDataAdapter("select * from pynt", con)
            Dim da2 As New OleDb.OleDbDataAdapter("select cus_mont,cus_depit from cus where id_cus=" & x, con)
            con.Open()

            da.Fill(ds, "Bill_info, Item_Sold")
            da1.Fill(ds, "pynt")
            da2.Fill(ds, "cus")

            CrTables = obj.Database.Tables
            For Each CrTable In CrTables
                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
            Next

            obj.Load(Application.StartupPath & "\report\bill_rep.rpt")
            obj.Database.Tables(0).SetDataSource(ds.Tables("Bill_info, Item_Sold"))
            CRV_BILL.ReportSource = obj
            CRV_BILL.Refresh()



            con.Close()
        End If
    End Sub

ظهرت رسالة الخطأ التالي بعد وضع الكود

ومرفق صورة للخطأ