VFP 愛用者社區

liangszpt · 註冊時間: 2004-11-18 文章: 263 來自: 广东省深圳市 第 1 樓

form.init()

SELECT CHARGE
SET FILTER TO CH_DATE='2006'
=CURSORSETPROP("Buffering",5,"CHARGE") &&启用表缓冲

************************

command_up.click()

LOCAL lnCurRec, lnTagRec, lcRecordID

IF BOF()
RETURN
ENDIF

lnCurRec = CHARGE.CM_NO
lcRecordID = CHARGE.CM_ID

SKIP -1

IF BOF()
GO TOP
RETURN
ENDIF

lnTagRec = CHARGE.CM_NO
REPLACE CM_NO WITH lnCurRec

LOCATE FOR CM_ID = lcRecordID
REPLACE CM_NO WITH lnTagRec

thisform.grid1.Refresh

TABLE:CHARGE是以CM_NO作INDEX的。
我想通过改变每一条RECORD的CM_NO值，来做到改变记录显示时的顺序。
但有些记录成功，有些记录就不成功，DEBUG发现这个SKIP命令，有时像失灵一样，并没有成功-1条记录的。
除了最后添加进TABLE的一条记录不成功，其它的都会成功的，我也试过REINDEX，但都不行

我再测试过，好像是CURSORSETPROP的问题，如果我完全不用的，就没有问题。还想带问一个问题，开了BUFFER后，怎么关掉呢？

恳请指教

garfield · 發表於: 星期一七月 17, 2006 10:22 am 文章主題:

先 select charge 再 skip -1 或許就正常了.

liangszpt · 發表於: 星期一七月 17, 2006 1:20 pm 文章主題:

fschern · 註冊時間: 2003-10-12 文章: 34 第 4 樓

修改正在啟用中的索引之關鍵欄位時,要注意當某筆記錄被修改後,該筆記錄在索引順序中的位置會立即改變。所以其上一筆及下一筆的記錄也就與修改前不一樣了。您的問題應該是這個原因所造成的。

芝風 · 發表於: 星期一八月 28, 2006 5:22 am 文章主題:

不好意思，CURSORSETPROP("Buffering",1,"CHARGE") 的這個charge是指什麼？是指table的index嗎？

liangszpt · 發表於: 星期一八月 28, 2006 3:29 pm 文章主題:

这里的CHARGE，是TABLE名。