لقد قمت بتجربة الكود الموجود فى المشاركة " مشكلة في عرض التقارير بعد تنصيب برنامجي " و لكنلم تنجح معى المحاولات , كل التقاريرالموجوده بالبرنامج تعمل معى ما عدا هذا التقارير مع العلم انه يعمل على جهازى و لا يعمل عند تنصيب البرنامج على جهاز العميل بالاضافة الى ان هذا التقرير يعتمد فى استرجاع البيانات على جدولين .
الكود المكتوب
rpt = "bill" Then
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter("select * from Billinfo b, Item_Sold i where b.Bill_no=i.IBill_No and b.Bill_no = " & dts, con)
con.Open()
da.Fill(ds, "Billinfo, Item_Sold")
Dim obj As New Billreport
obj.Database.Tables(0).SetDataSource(ds.Tables("Billinfo, Item_Sold"))
crv.ReportSource = obj
con.Close()
و صورة الخطأ
