[abdullhadi999]

(06-01-19, 01:35 AM)عبد العزيز البسكري كتب :

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

كان من الأفضل وضع المشكلة بذاتها بفورم بسيط للتأكّد أكثر و مع ذلك و إضافة لما قد ينظر به أخي الغالي " أسامة " ..

أخي الكريم " عبد الله " ..

لماذا أكثرت من عبارة Try .. فواحدة قد تكفي .. لم أجرّب .. فقط نظريا .. حاول هكذا لو سمحت

كود :

Private Sub BarButtondelete_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtondelete.ItemClick
       If MessageBox.Show("هل أنت متأكد من مواصلة عملية الحذف؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
           Exit Sub
       Else
           Try
  DeleteRowFrom_custdy_movement(Txtcustdy_code)
               DeleteRowFrom_category_movement(TxtID)
Form2_Load(sender, e)
    Tools_ReadOnly(True)
       Tools_Enabled(False)
BarButtonsave.Enabled = False
       BarButtonCancel.Enabled = False
       BarButtonNew.Enabled = True
       BarButtonupdate.Enabled = True
       BarButtondelete.Enabled = True
       BarButtonEdit.Enabled = True
       BarButtonSaveEdit.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         MsgBox("تم حذف السجل.", MsgBoxStyle.Information, "حذف")
Catch ex As Exception
          MsgBox(Err.Description, MsgBoxStyle.Information)
           Finally
           End Try
       End If
   End Sub

تحياتي

السلام عليكم 

اخي عبدالعزيز شكرا جزيلا لك  . جربت الطريقة واعطاني هذه الرسالة . ولم يتم الحذف مباشرة من الداتاجريد الا بعد اغلاق البرنامج