请教怎样清空E数据库？

建霞情缘

请教怎样清空E数据库？

1. .版本 2
   
2. 
   
3. .子程序 _清空数据库慎用_被选择
   
4. .局部变量 n, 整数型
   
5. 
   
6. .如果真 (信息框 (“是否要清空充值卡数据？清空后不可以恢复！”, #是否钮 ＋ 64, “清空数据库”) ＝ #是钮)
   
7.     到首记录 ()
   
8.     .计次循环首 (取记录数 (), n)
   
9.         删除 ()
   
10.         彻底删除 ()
    
11.         跳过 ()
    
12.     .计次循环尾 ()
    
13.     导入超级列表框 ()
    
14. .如果真结束
    
15. 
    

复制代码

我用上面的代码但是老是有一个删不掉

airpppp

清空 ()
用这个命令不得了

看了下你的源码,你写错了!
去掉循环中的"跳过()"即可解决问题!

记录删除后,数据库自动重组,跳过()命令后,记录指针位置一直为2
所以第二个记录无法删除.

f956

先  打开（）  数据库
再  清空（）

imcoco

Stop!
计次循环首的循环，第一次就是1.
所以不能向楼主一样。
因为数据库的第一条索引是0.
而计次循环首不能照顾到0.
所以。
我改一下最下面的计次循环首

.版本 2

    .计次循环首 (取记录数 (), )
        删除 ()
        彻底删除 ()
        跳过 ()
        n ＝ n ＋ 1
    .计次循环尾 ()

airpppp

Stop!
因为数据库的第一条索引是0.
而计次循环首不能照顾到0.
所以。
我改一下最下面的计次循环首

.版本 2

    .计次循环首 (取记录数 (), )
        删除 ()
        彻底删除 ()
        跳过 ()
        n ＝ n ＋ 1
    .计次循环尾 ()imcoco 发表于 2010-12-24 20:45

汗一下先!
记录索引是从1开始!
计次循环中的 n ＝ n ＋ 1,做什么用的...

imcoco

汗一下先!
记录索引是从1开始!
计次循环中的 n ＝ n ＋ 1,做什么用的...
airpppp 发表于 2010-12-24 22:21

    汗。sorry。
没注意看，跑题了。