[abdullhadi999]

(07-01-19, 05:19 PM)elgokr كتب :

لى ولك وللجميع بامر الله

فالحمد لله على كل حال

بخصوص الرسالة سيتطلب ان تضه هنا الكود داخل الحدث لزر الحذف

حتى اطلع على ما الذى تقوم به من كتابة كود مع هذا السطر

كود :

DeleteRowFrom_custdy_movement(Val(TextBox1.Text))

لتوضح الامر اكثر معى اذا كان الامر من كود تقوم باضافته ام ماذا

وكذلك لاى كيف تقوم باعادة انعاش الدات جريد بعد اتمام الحذف

تحياتى لك

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

السلام عليكم ،،،
هذا الكود الذي تحت زر امر الحذف 

كود :

       If MessageBox.Show("هل أنت متأكد من مواصلة عملية الحذف؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
           Exit Sub
       Else
           Try
              ( DeleteRowFrom_custdy_movement(Txtcustdy_code
                              (Form2_Load(sender, e

           Catch ex As Exception
               Exit Sub
           End Try

واقوم بااعادة تحميل الفورم من خلال   (Form2_Load(sender, e 

اما كود الحذف فقد وضعته في موديول واقوم باستدعائة من خلال زر الحذف وهذا هو الكود :

كود :

   Public Sub DeleteRowFrom_custdy_movement(ByVal Txtcustdy_codeW As TextBox)
       Dim CmdDelete As New SqlCommand
       With CmdDelete
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Delete  From custdy_movement   Where custdy_code = " & Val(Txtcustdy_codeW.Text) & ""
       End With
       Try
           If Con.State = 1 Then Con.Close()
           Con.Open()
           CmdDelete.ExecuteNonQuery()
           Con.Close()
           MsgBox("تم حذف السجل", MsgBoxStyle.Information, "حذف")
           CmdDelete = Nothing
       Catch ex As Exception
           Con.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
           If Con.State = ConnectionState.Open Then Con.Close()
       End Try
   End Sub

واسف على ازعاجكم والله يجزاك خير