求一初始表做法

小弟VFP已经有段时间了，再次感谢论坛上的朋友大力帮助，非常感谢，我现在想做一个按健删除所有表里面的内容。不知道怎么写。请高手帮忙!但是密码表就不用删除了呵呵!

在按钮的Click事件中写入相应代码不行吗？

我不那个意思，我的意思是说，比如我用了一年了，我想删除表里所有数据，我在菜单里面建一个菜单选项，按一下就可以删除所有表里面的内容!我不知道代码怎么写!

Zap

ZAP不懂。版主能解释一下吗？

zap=
delete all
pack

zap=userfile\表1\表2\表3\表4\表5\表6
delete all
pack



是这样加吗？

zap是普通删除记录命令

use <文件名>
zap

所有记录都删除了，需要确认一下，在命令状态下选择一个表试一下就知道了。

运行第一个的时候就没问题可以删除

但运行第二个的时候就出错了，请教我!


确定代码如下：
do case
    case thisform.optiongroup1.option1.value=1
    USE "database\ygdaxxb"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="ygdaxxb"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
    case thisform.optiongroup1.option2.value=1
    USE "database\zgcf"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="zgcf"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
     case thisform.optiongroup1.option3.value=1
     USE "database\ygczsqb"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="ygczsqb"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
    case thisform.optiongroup1.option4.value=1
    USE "database\bmkpb"
delete all
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——物理删除
    PACK
    *——指定数据源
    RecordSource="bmkpb"
    *——刷新表单
    THISFORM.REFRESH
ENDIF
ENDCASE

[[italic] 本帖最后由 zhaocqdx 于 2008-1-5 19:18 编辑 [/italic]]

这问题已经搞了好久了。还是没搞定郁闷惨了!

[[italic] 本帖最后由 zhaocqdx 于 2008-1-5 19:19 编辑 [/italic]]