[barawy]

عليكم السلام ورحمة الله
فى ملاحظه صغيرة على الكود: هو ان انت عايز تغير بأسم جديد وفى نفس الوقت بتستدعى البيانات بعبارة SQL بدلالة ال unit_name اللى هو اصلا جديد
الحل انك تعدل ال sql بحيث تكون بدلالة رقم الوحدة مثلا وفى الحاله دى تقدر تغير اسم الوحده

جرب الكود التالى باعتبار ان رقم الوحدة مثلا هو Unite_ID  و ان الخانه الخاصة بها txt_ID
التغيير فى العبارة دي
"select * from unite where unite_ID='" & TXT_ID.Text & "'", Module1.con

كود :

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_ID='" & TXT_ID.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