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

السـلا عليكم روحمة الله وبركاته

كيف يمكنني تعبأة تقرير من جدولين

عملت 2 داتا تايب وأستخدمت جملة السليكلت بدلاله المفتاح الرئيسي من الجدول الأول وعبأة الداتا تايب الأولى

ومن ثم أستعلمت من الجدول الثاني وعبأة الداتا تايب الثانيه ولكن للأسف ما تتطلع نتيجه

أغلب الأحيان يعطيني خطأ

محتاج مساعدتكم في أفضل طريقه أستدعاء بحيث أن البرنامج ما يعطيني خطأ

كود :

       Dim da As New SqlClient.SqlDataAdapter("SELECT * FROM [wsfty] WHERE [CODE]=@CODE", CON)

        Dim tbl As DataTable : tbl.Clear()

        da.Fill(tbl)

        Dim rpt As New CLANA1

        rpt.SetDataSource(tbl)

        Form2.CrystalReportViewer1.Refresh()

        Form2.CrystalReportViewer1.ReportSource = rpt

        Dim da2 As New SqlClient.SqlDataAdapter("SELECT * FROM [tbl_emp] WHERE [empid]=@empi1", CON)

        Dim tb2 As DataTable : tb2.Clear()

        da.Fill(tbl)

        Dim rpt2 As CLANA1

        rpt.SetDataSource(tb2)

        Form2.CrystalReportViewer1.Refresh()

        Form2.CrystalReportViewer1.ReportSource = rpt2

        Form2.Show()

[/code]

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

طـلال