Private Sub FrmPay_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim Del() as intger
If e.KeyCode = Keys.Delete Then
Try
If DGV1.CurrentRow.Cells(0).Selected Then
ไม่รู้จะใส่ยังไง
DGV1.Rows.RemoveAt(DGV1.CurrentRow.Index)
End If
Catch ex As Exception
End Try
End If
End Sub
Private Sub FrmPay_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Delete Then
Try
If DGV1.CurrentRow.Cells(0).Selected Then
DeleteRowPay(DeleteRowRun) = Convert.ToInt32(DGV1.CurrentRow.Cells(4).Value)
DGV1.Rows.RemoveAt(DGV1.CurrentRow.Index)
DeleteRowRun += 1
End If
Catch ex As Exception
End Try
End If
End Sub