[a.wagdi]

(22-12-18, 04:42 PM)عبدالرحمن بشري عمر كتب : هذه كود الدتا جريد فيوda = New OleDbDataAdapter("SELECT * FROM stourg;", con)

        Dim dt As New DataTable
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt
هذه كود التقرير ارجو المساعدة
Dim rebor As New CrystalReport1
        rebor.SetDataSource(dt)

        Form39.CrystalReportViewer1.ReportSource = rebor

        Form39.TopMost = True

        Form39.Show()

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

الكود سليم فقد قمت بتجربته ويعمل بشكل صحيح

اذا كنت وضعت الكود داخل الحدث Form1_Load او Try او استخدمت On Error فلن تظهر لك الاخطاء التي تحصل

قم بوضع الكود كما هو في حدث Button بدون استخدم Try ولا OnError وستعلم اين المشكلة لديك