PrepareEdit事件
e.Cancel = e.Row("是否已付款") AndAlso e.Col.Name <> "是否已付款"
DoubleClick事件
If e.Col.Name <> "是否已付款" AndAlso e.Row("是否已付款")
e.Cancel = True
MsgBox("ss")
End If
KeyDowns事件
If e.KeyCode = Keys.space AndAlso e.Table.Cols(e.Table.ColSel).Name <> "是否已付款" AndAlso e.Table.Current("是否已付款")
e.Cancel = True
MsgBox("ss")
End If