28-09-20, 12:21 AM
(آخر تعديل لهذه المشاركة : 28-09-20, 12:22 AM {2} بواسطة ٍOfelas.
تعديل السبب: هدا الكود
)
Dim id As Integer = DGV1(0, DGV1.SelectedRows(0).Index).Value.ToString
Dim str2 As String = String.Format("update Wahda set Wa_Name='{0}',
Wa_Account={1},Wa_Amount={2},
Wa_Date=#{3}#,Wa_Note='{4}' WHERE Wa_ID={5}",
TextName.Text,
TextAccount.Text,
TextAmount.Text,
CDate(DateTimePicker1.Value).ToString("yyyy/MM/dd"),
TextAboutMonths.Text, id)
d.GetData(str2)
MessageBox.Show("تم عمليةالتعديل بنجاح ")
ndx = DGV1.CurrentRow.Index
_loaddata()
_cleartxt()
cleardata()
DGV1.Rows(ndx).Selected = True
Dim str2 As String = String.Format("update Wahda set Wa_Name='{0}',
Wa_Account={1},Wa_Amount={2},
Wa_Date=#{3}#,Wa_Note='{4}' WHERE Wa_ID={5}",
TextName.Text,
TextAccount.Text,
TextAmount.Text,
CDate(DateTimePicker1.Value).ToString("yyyy/MM/dd"),
TextAboutMonths.Text, id)
d.GetData(str2)
MessageBox.Show("تم عمليةالتعديل بنجاح ")
ndx = DGV1.CurrentRow.Index
_loaddata()
_cleartxt()
cleardata()
DGV1.Rows(ndx).Selected = True