Dim cc As Integer
Dim rr As Integer
n_val = e.Value
If Trim(o_val) <> Trim(n_val) Then
'' MsgBox("数2据改变" & o_val & "--" & n_val)
cc = DataGridView1.CurrentCell.ColumnIndex '当前列号
rr = DataGridView1.CurrentCell.RowIndex '当前行号
DataGridView1.Rows(rr).Cells(cc).Style.BackColor = Color.Green '改变颜色
DataGridView1.Refresh()
End If
其中上面代码中, DataGridView1.Rows(rr).Cells(cc).Style.BackColor = Color.Green '改变颜色 拿了,屏幕不会闪烁了