Private Sub dgv_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvSalesIncluded.KeyDown
'取当前行列索引
Dim row = dgv.CurrentCell.RowIndex
Dim col = dgv.CurrentCell.ColumnIndex
'如果下一行的某个字段值为空 屏蔽Down键
If e.KeyData = Keys.Down Then
If IsDBNull(dgv.Rows(row + 1).Cells("列名").Value) Then
'MsgBox("DOWN")
e.Handled = True
End If
End If
End Sub