21-02-14, 04:14 PM
كود :
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
' برمجة الزر تعديل
' وهنا نفحص قائمة المشتركين، إن كانت فارغة يتم عرض رسالة تفيد ذلك
' وإلا فيتم عرض فورم تعديل السجل المختار وتحديث قاعدة البيانات والداتاقريدفيو
If dgvList.Rows.Count < 2 Then
MsgBox("القائمة فارغة", MsgBoxStyle.Critical, "عذراً")
ElseIf dgvList.SelectedRows(0).Cells(0).Value = Nothing Then
MsgBox("يجب اختيار سجل لتعديله", MsgBoxStyle.Critical, "عذراً")
Else
Dim displayRow As Integer = dgvList.FirstDisplayedScrollingRowIndex '<<<<<<<<<<<<<<<<<<<<<<<<
Dim indexRow As Integer = dgvList.SelectedRows(0).Index '<<<<<<<<<<<<<<<<<<<<<<<<
With frmEdit
.RecID = Val(dgvList.SelectedRows(0).Cells(0).Value)
.TheName = dgvList.SelectedRows(0).Cells(1).Value
.TheBirthDate = dgvList.SelectedRows(0).Cells(2).Value
.ShowDialog()
End With
dgvList.Rows(indexRow).Selected = True '<<<<<<<<<<<<<<<<<<<<<<<<
dgvList.FirstDisplayedScrollingRowIndex = displayRow '<<<<<<<<<<<<<<<<<<<<<<<<
End If
End Sub