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

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


确定的代码如下：

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

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