[abdullhadi999]

شكرا جزيلا اخي اسامة هذه الاكواد التي لاتقبل التحديث 

تم الاعلان عنها في موديول عام وتم استدعائها من خلال الازرار في الفورم طبعا انا عملت الاظافة والتحديث والحذف لجدولين كما ستلاحظ ونجحت معي فقط عملية الاظافة 

في البداية هذه اوامر الحذف :

كود :

   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

كود :

Public Sub DeleteRowFrom_category_movement(ByVal TxtIDW As TextBox)

كود :

        Dim CmdDelete As New SqlCommand

كود :

        With CmdDelete

كود :

            .Connection = Con

كود :

            .CommandType = CommandType.Text

كود :

            .CommandText = "Delete  From category_movement   Where ID = " & Val(TxtIDW.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

هذا امر استدعاء الحذف

    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)


            Catch ex As Exception
                Exit Sub
            End Try

        End If
        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
        Try
            Form2_Load(sender, e)

        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

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

---

اسف اخ اسامة الكود الثاني اتى بهذا الشكل