[محمد العامر]

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

كود :

Try

           Dim Adp As New OleDbDataAdapter("SELECT TB_Eemplooye.EemployeID, TB_Eemplooye.EemployeName, TB_Eemplooye.EemployePosition, TB_Eemplooye.CostCode, TB_Eemplooye.DirectorinthesystemSap, TB_Attendance.Payroll, TB_Attendance.[Date],
                 TB_Attendance.Attendance, TB_Attendance.DutyManager, TB_Attendance.Remark
FROM     (TB_Attendance RIGHT OUTER JOIN
                 TB_Eemplooye ON TB_Attendance.Payroll = TB_Eemplooye.EemployeID)
WHERE  (TB_Eemplooye.EemployeID = EemployeID)
ORDER BY TB_Attendance.[Date]", con)
           Dim Ds As New DataSet
           Dim RptAtt As New XtraReport1
           Adp.Fill(Ds)
           Dim Dt = Ds.Tables(0)

           If Dt.Rows.Count = 0 Then
               MsgBox("لم يتم العثور على بيانات لعرضها في التّقرير", MsgBoxStyle.Critical, "تنبيه")
               Exit Sub
           End If

           RptAtt.DataSource = Dt
           RptAtt.DataAdapter = Adp
           RptAtt.DataMember = "DataTable1"

           RptAtt.Parameters("Parameter1").Value = TextBox1.Text
           RptAtt.RequestParameters = False

           Dim Tool_Report As ReportPrintTool = New ReportPrintTool(RptAtt)
           RptAtt.CreateDocument()

           Dim Frm As New Frm_Printing
           Frm.DocumentViewer1.DocumentSource = RptAtt
           Frm.ShowDialog()

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

السؤال هل الكود برمجياً صحيح ؟

مع أني الحمد لله وصلت للنتيجة التي أبحث عنها

بارك الله فيك