[momiana1]

قمت بالتعديل على الكود ولكن في خطأ عند التنفيذ

كود :

Try

               SQLstr = "SELECT * FROM invoice where exists ( select * from invoice high where high.ID = invoice.ID and high.year > invoice.year)"
               

               If Me.BindingContext(DataSet1, "invoice").Count = 0 Then
                   MsgBox("لا توجد نتائج  , تأكد من وجود إيصالات مخزنة بالمنظومة ")
                 
                   'Exit Sub
               End If
           Catch ex As Exception

           End Try