data头、前移、后移、尾四键如何控制？

Question

你在设计时双击data控件，你看它的事件中会有一个integer类型的参数，头记录，上一个，下一个，尾记录这四个键分别有一个数字对应，自己试试吧。

Answer 1

movefirst移到头
movenext前移一条记录
movelast移到尾
movepreious向后移一条记录
当recordcount=0的时候不能用~~~~~~~

Answer 2

纯代码：
  Dim DB as DataBase 
  Dim Rst as Recordset  set db=opendatabase(数据库路径）
  set rst=db.openrecordset(表名)
向前移： 
  if not(rst.eof and rst.bof) then
     rs.moveprevous    
     if rs.bof then '当移过首记录时，就移向末记录
        rs.movelast
     end if
  end if
其他的就想楼上那位说的一样用movenext ,movelast ,movefrist控制就行了如果用的是data控件的话：
    data1.recordset.movefrist
    data1.recordset.moveprevous
    data1.recordset.movenext
    data1.recordset.movelast