是不是想实现 移动指针上一条、下一条记录???(我前面有个是说错了的)
当前记录一开始是在第一条的.

当Thisform.text1.ControlSource="表名.字段1"

select 表名
if thisform.text1.value==dmmin
messagebox("已到数据首部",48,"移动记录")
else
skip 1
endif
thisform.refresh

你QQ号码告诉我,我发个9.0的帮助给你吧

谢谢，刚在论坛里找到VF9.0的帮助文件中文版的了，晚上回去看看。
你的代码：
select 表名
if thisform.text1.value==dmmin
messagebox("已到数据首部",48,"移动记录")
else
skip 1
endif
thisform.refresh

问题是我没有把需要比较的字段放在表单上，因为我不希望显示“代码”字段，所以thisform.text1.value就不能用，需要引用表中这个字段的当前值（回去试试，再没解决办法，只能把它放在表单上了。）

问题是我没有把需要比较的字段放在表单上，因为我不希望显示“代码”字段，所以thisform.text1.value就不能用?
可以用啊
你就随便添加个TEXT5 然后Thisform.text5.ControlSource="表名.字段1" 再将TEXT5的enabled 的属性设置为.F.

已经把我的表单的设计结构全改了，换种思路试试。

*上一条
Select 表别名
If Recno()<=1
MessageBox("已经到了第一条记录")
Else
Skip -1
EndIf

*下一条
Select 表别名
If Recno()>=Reccount()
MessageBox("已经到了最后一条记录")
Else
Skip
EndIf

谢谢Tiger5392，一般的表单是这么写的代码，可我的表单是按索引字段排序的，并且追加的新记录的索引字段值很可能不是当前最大的值。所以这么写的代码，移动起来就是到了索引字段值的某一个时其记录号是最大的，就不再往下移动了，显示“已经到了最后一条记录”，其实后面还有好多记录而看不到；移动到了索引字段值是排在中间大小的某一个而其记录号是最小的时，就不再往上移动了，显示"已经到了第一条记录"，所以，会有好多记录都看不了。
你有解决的方法吗？我都快崩溃了。

不要崩溃。
*上一条
Skip -1
If Bof()
MessageBox('已经到了第一条')
Go Top
EndIf
*下一条
Skip
If Eof()
MessageBox('已经到了最后一条记录')
Go Bottom
EndIf

谢谢！回家试试