10-11-22, 05:05 PM
(آخر تعديل لهذه المشاركة : 10-11-22, 05:09 PM {2} بواسطة ali_ahmed12.)
(10-11-22, 02:03 PM)barawy كتب : قم بتعديل السطر التالى:يعمل الان الكود
كود :
Dim dr As DataGridViewRow = DataGridView1.SelectedRows(0)
الى :
كود :
Dim dr As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
(09-11-22, 10:26 AM)barawy كتب : قم بتجربة الكود كما فى مشاركتى السابقه ثم اخبرنى بالنتائج
لكن عندما اضغط علي زر تعديل تظهر مشكله
كما في صورة
(10-11-22, 05:05 PM)ali_ahmed12 كتب :(10-11-22, 02:03 PM)barawy كتب : قم بتعديل السطر التالى:يعمل الان الكود
كود :
Dim dr As DataGridViewRow = DataGridView1.SelectedRows(0)
الى :
كود :
Dim dr As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
(09-11-22, 10:26 AM)barawy كتب : قم بتجربة الكود كما فى مشاركتى السابقه ثم اخبرنى بالنتائج
لكن عندما اضغط علي زر تعديل تظهر مشكله
كما في صورة
هدا كود تعديل
كود :
Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
If MessageBox.Show("هل ترغب في تعديل اسم الوحدة", "رسالة تنبيه", MessageBoxButtons.YesNo) = DialogResult.No Then Exit Sub
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 Sub