[SonBasel]

(17-09-18, 09:31 AM)elgokr كتب :

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

فضلاً وليس امراً 

بدلاً من التعامل مع التخمين

قم بوضع الاكواد المستخدمة

وصورة لما يظهر لديك من مشكلة

حتى نتمكن من وضع الرد المناسب فيما لديك من مشكلة

تحياتى لك

وتمنياتى لك التوفيق

كود :

 Try
           Dim row As DataRow = DT.Rows.Find(ID.Value)

           If row Is Nothing Then

               MsgBox("هذا العمل غير موجود", MsgBoxStyle.Exclamation, "الحذف")

           Else

               row.Delete()
               cmdb = New SqlCommandBuilder(Adapter)
               Adapter.Update(DT)
               MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")
             
           End If
       Catch ex As Exception
        (MsgBox(ex.Message
       End Try

اسف توقعت اني مرسلها من امس بس طلع النت علق و ما ارسلها