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

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

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

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



是这样加吗？

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

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


确定代码如下：
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]]

单独删除一个表就可以搞定

但是运行第二个表时就提示文件正在使用 。请指点啊


确定的代码如下：

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

这个问题已经解决了，我用菜单一个一个进行删除，虽然笨了点，但可用。呵呵!