If e.KeyCode = Keys.F3 Then
If DataGridView1.RowCount > 0 Then
Dim s As String = InputBox("แก้ไขราคาสินค้า", "แก้ไขราคาสินค้า")
If IsNumeric(s) Then
DataGridView1.CurrentRow.Cells(3).Value = s
ElseIf s = "" Then
DataGridView1.CurrentRow.Cells(3).Value = DataGridView1.CurrentRow.Cells(3).Value
End If
End If
End If