VFP 愛用者社區

MORNING · 註冊時間: 2006-01-04 文章: 12 第 1 樓

本人有这样的一段程序,但当执行"删除"后,记录指针无法自动返回一位,而是直接回到第一个记录,请哪位大侠能帮我指点一下,在哪里修改(或加代码)能达到这个目的?谢谢!

cMessageTitle="提示"
cMessageText="真的想删除数据吗？"
cDialogue=4+32+1024
nAnswer=Messagebox(cMessageText, cDialogue,cMessageTitle)

if nAnswer=6
delete
pack

endif
thisform.refresh

小賴 · 註冊時間: 2004-12-27 文章: 476 第 2 樓

並非DELETE使指標移動; 而是PACK使指標移動!

戲武 · 發表於: 星期一一月 09, 2006 10:33 pm 文章主題:

如果只DELETE一筆,那就簡單了.
if nAnswer=6
delete
Mrec=recno()
pack

endif
go mrec
thisform.refresh

MORNING · 註冊時間: 2006-01-04 文章: 12 第 4 樓

谢谢上面朋友的帮助,按你的方法试了一下,还有一点小问题,不过稍作了一点小修改就解决了,即:

if nAnswer=6
delete
Mrec=recno() -1
pack

endif
go mrec
thisform.refresh

小賴 · 註冊時間: 2004-12-27 文章: 476 第 5 樓

還是會有問題的 ; 試試DELETE第一筆就知道.
還有如果有索引的時候; 那會更複雜的.
建議您使用SET DELETE ON 或 SET FILTER TO (! DELETE())
不要直接使用PACK

catjoke · 發表於: 星期二一月 10, 2006 9:15 am 文章主題:

問題是... 它已經不存在了.. 你記那個 recno() 是沒有意思的!

還是試試這樣:

SET DELETE ON
THISFORM.GRID1.REFRESH

syntech · 發表於: 星期二一月 10, 2006 9:32 am 文章主題:

備份 record no. 的想法是對的,
我習慣在 delete 之前記錄,
不過只要配套做好,何時記錄倒不是重點

MORNING · 註冊時間: 2006-01-04 文章: 12 第 8 樓

如小赖朋友所说,当执行删除第一条记录时会出现问题,后来我又作了如下修改:
a=recno()
cMessageTitle="提示"
cMessageText="真的想删除数据吗？"
cDialogue=4+32+1024
nAnswer=Messagebox(cMessageText, cDialogue,cMessageTitle)

if nAnswer=6
delete
if a=1
pack
else
go a-1

endif
endif

thisform.refresh

重新测试了一下,好像可以(不过有点复杂),但是我对SET DELETE ON 或 SET FILTER TO (! DELETE())
不是很懂(很惭愧),可否指点一下?谢谢!

MORNING · 註冊時間: 2006-01-04 文章: 12 第 9 樓

谢谢!