[aftfm]

بارك الله فيك

بالنسبة للكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try

        Dim sql As String = " SELECT * FROM [tbl1] "
        Dim da As New OleDbDataAdapter(sql, Con)
        Dim dt As New DataTable
        da.Fill(dt)

        Dim rpt As New CrystalReport1
        rpt.SetDataSource(dt)

        Dim frmPrint As New frmPrint
        frmPrint.Text = "بيان بكافة الأجهزة"

        frmPrint.CrystalReportViewer1.ReportSource = rpt
        frmPrint.ShowDialog()

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

بعد فتح التقرير وإغلاقة ومن ثم الخروج من البرنامج يظهر خطأ أو بالأصح
يعلق البرنامج