如何捕捉TDBGRID或DATAGRID的最后一行?

Question

例如,当用鼠标点击最未一行(即带*号的行)时,我如何能确定我目前定位在这一行?我的方法是这样,但是,很不好.因为会看到到箭头跳上和跳下.Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Me.Caption = CheckFoot(Y)
End Sub
Function CheckFoot(Y As Single) As Boolean
        Dim r As Long        On Error Resume Next        r = DataGrid1.RowContaining(Y)
        DataGrid1.Row = r + 1
        DataGrid1.Row = r - 1
        CheckFoot = (Err.Number = 0)
End Function

Answer 1

老大，你准备做啥
你用move去移动到recordset的最后面啊
定位做什么，定位全部是对recordset的操作。
上线来

Answer 2

记录集不能移动.
表格的当前位置不能移动.
如果能移动的话:
        DataGrid1.Row = r + 1
也不用再一次.
        DataGrid1.Row = r - 1

Answer 3

ei...我还是不懂得你意思。移动很容啊
我去吃饭咯。回来线上跟你说吧不过我不相信你不会这个问题ei....
汗一个