谢谢“有点蓝”老师,我的问题用你的代码解决了;顺便说一声,你的代码里有两处错误,如下红色字体修正;
If e.keycode = Keys.D AndAlso e.control = True Then
If e.Table.topposition < e.Table.Rows.Count - 1 Then
Dim value AS Integer = 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.Table.rows(i)("ProcessCode") <> "" Then
Continue For
End If
End Select
e.Table.rows(i)(e.Table.ColSel) = value
Next
End If
e.cancel = True
End If