我给表A设置了编号，比如000101的形式，0001是表单号01是货号。现在要实现根据表单号显示到GRID里，并且能像普通记录那样有返回前一行 和进入下一行的类似指针的功能。
我写了一段代码：
*******表单init事件
select goods
PUBLIC i,编号1,规格1,单位1,货名1
CALCULATE MAX(VAL(SUBSTR(编号,2,3))) TO I
thisform.grid1.RecordSourceType= 4


*******按钮的click事件
IF i=0
=messagebox("这已经是第一条记录！",48,"信息窗口")
i=1
else

text1=alltrim("r"+CHRTRAN(STR(i,3)," ","0")+"_"+"_")
thisform.grid1.RecordSource="sele goods.编号,货名,规格,单位 from goods where(goods.编号 like text1) into cursor temp"
SELECT temp
ENDIF
i=i-1
thisform.grid1.Refresh
thisform.Refresh




但是以上代码遇到表单号不连续就有问题了，必须摁多次才能到指定记录。想请大家给个思路解决这个问题。

问题在于 i=i-1
改成SKIP -1

[此贴子已经被作者于2006-9-15 12:31:17编辑过]

啸凡 不对阿，SKIP -1操作的是指针吧。
可能我没说清楚
我的编号是
000101
000102
000103
000201
000202
000401
000402
要让查找出的结果分别为：
a b c
000101 000201 000401
000102 000202 000402
000103
并且用按钮提供向上向下的功能来切换a，b，c结果的显示

thisform.grid1.RecordSource="sele goods.编号,货名,规格,单位 from goods where(goods.编号 like text1) into cursor temp"有可能出现你要的什么a,b,c结果吗？我糊涂了！

我说的是3种结果

结果是由上面的变量I控制的，i=1 结果就是000101
000102
000103

呵呵，那不就是Skip就行了吗？
你的东西已经放在临时表里了，Sele临时表，移动指针，就不会出现您所说的问题了嘛。

临时表里保存的是查询出来的是像下面一样结果阿
000101
000102
000103
我想移动的是0001，0002，0003这样


我还是用2个表来保存吧，一个单据表，一个明细表。换方法了

呵呵，原来我全理解错了。
不用两个表，我想可以这样，每I=I-1一次，就查询一下有没有记录，没有记录了，自动再I=I-1一次。有了记录就停下来等你的Click，这不就成了。

哦 这样阿