图片附件: 游客没有浏览图片的权限,请
登录 或
注册
运行第一个的时候就没问题可以删除
但运行第二个的时候就出错了,请教我!
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
确定代码如下:
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]]