[ali_ahmed12]

السلام عليكم لدي داتا قريد فيو لماذا عندما  اريد الضغط علي زر تعديل لايتغير اسم الوحدة

كود :

Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
       If TXT_NAME.Text = "" Then
           MessageBox.Show("يرجي ادخال اسم الوحدة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           TXT_NAME.Select()
           Exit Sub
       End If
       '============كود التعديل
       Dim DT As New DataTable
       Dim DA As New SqlDataAdapter("select *from unite where unite_name='" & TXT_NAME.Text & "'", Module1.con)
       DA.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("اسم الوحدة غير موجود ", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

       Else
           Dim DR = DT.Rows(0)
           DR!unite_name = TXT_NAME.Text
           Dim SAVE As New SqlCommandBuilder(DA)
           DA.Update(DT)
           MessageBox.Show("تم تعديل اسم الوحدة بنجاح", "رسالة تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
           btn_new_Click(sender, e)

       End If
   End Sub