Question

VB6删除随机文件中的当前记录

目的：删除随机文件中的当前记录（intRec变量值为当前记录号）
思路：将当前文件，当前记录之前和之后的记录写到临时文件中，再用临时文件覆盖当前文件，最后删除临时文件
说明：当前文件为#1号，xxsx.dat已打开，~ xxsx.dat为临时文件(#2号)，Stu已定义 (其中包括定义每个字段长度)
用到的变量：Reclen：一条记录长度；intLast：当前文件中记录总数
程序：
Open "~xsxx.dat" For Random As #2 Len = Reclen ‘建立并打开临时文件
Dim i As Integer
For i = 1 To intRec - 1
Get #1, i, Stu
Put #2, i, Stu
Next
For i = intRec + 1 To intLast
Get #1, i, Stu
Put #2, i - 1, Stu
Next
Close
FileCopy "~xsxx.dat", "xsxx.dat" ‘用临时文件覆盖原文件
Kill "~xsxx.dat" ‘删除临时文件
End Sub
运行结果：当前记录到到尾记录的一段记录同时被删除
请问，为什么不是只删除一条记录

Answer 1

因为你没有给出全部代码，只能猜测。
估计是你没有给intLast赋值，或者是给intLast赋值不正确（小于intRec + 1）而导致第二个for循环没有被执行。
具体的你可以在第二个for的地方设置断点检测看看是不是进入了循环。

追问

intLast有值，我提供的是一个模块，这个值我用立即窗口检查是对的

追答

是否进入第二个循环？或者你贴出全部代码及例数据库。没有人是神仙，可以猜测到你为贴出来的代码

追问

非常感谢你的提醒，果然是这个变量值的问题，原因是我在试验时添加了记录，这个值重新计算就对了（原来没有重新计算），问题解决了