试试Keydown
If e.keycode = Keys.D AndAlso e.control = True Then
If e.Table.topposition < e.Table.Rows.Count - 1 Then
Dim value = e.Table.rows(e.Table.topposition)(e.Table.ColSel)
For i As Integer = e.Table.topposition + 1 To e.Table.bottomposition
Select Case e.Table.Cols(e.Table.ColSel).Name
Case "ProcessTeam","ProcessMachine","ProcessName","ProcessDescription"
If e.DataRow("ProcessCode") <> "" Then
Continue For
End If
End Select
e.Table.rows(i)(e.Table.ColSel) = value
Next
End If
e.cancel = True
End If
去掉datachanging事件代码