01.
Private
Sub
FrmPay_KeyDown(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.KeyEventArgs)
Handles
Me
.KeyDown
02.
If
e.KeyCode = Keys.Delete
Then
03.
Try
04.
If
DGV1.CurrentRow.Cells(0).Selected
Then
05.
DeleteRowPay(DeleteRowRun) = Convert.ToInt32(DGV1.CurrentRow.Cells(4).Value)
06.
DGV1.Rows.RemoveAt(DGV1.CurrentRow.Index)
07.
DeleteRowRun += 1
08.
End
If
09.
Catch
ex
As
Exception
10.
End
Try
11.
End
If
12.
End
Sub