Dim sValue_Old As String = ""
Private Sub GridControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GridControl1.MouseMove
        Dim hi = GridView1.CalcHitInfo(e.Location)
        If hi.InRowCell Then
            If hi.Column Is 目标列 Then 'GridColumn1
                Dim sValue As String = GridView1.GetRowCellValue(hi.RowHandle, 目标列).ToString
                If sValue <> sValue_Old Then
                    sValue_Old = sValue
                    Console.WriteLine(sValue)
                End If
            Else
                sValue_Old = ""
            End If
        End If
End Sub