又遇到麻烦了，这个东西有点奇怪的样子。

在彻底删除数据库数据的时候提示“文件必须以独占方式打开”。我觉得我的数据库文件确实是独占方式打开的。

数据如下：


有且只有pageframe1.page1.Grid1调用当前数据库（商品基本信息），


删除按钮的命令为

select 商品基本信息
if messagebox("是否确认删除当前记录！",32+4+256,"删除记录")=6

pack
this.parent.parent.parent.parent.refresh


endif


难道以Grid1控件调用数据库的方式不叫独占方式？

额，理解错误，纯粹理解错误，刚刚看了下函数手册，明白是啥意思了，郁闷中……

好像不是理解错误，貌似如果用Grid1控件调用数据表，数据表就一直在使用。

那还有没有解决pack命令的办法呢


我试过在启动程序时，调用第一个表单的init参数中加入 “pack 商品基本信息” 命令，但是却出现“致命错误的提示”

但是如果只在主程序中加入pack命令，而不是“pack 商品基本信息”，就不会出任何问题，还能把数据删除。

难道要用close命令，如果用了close命令如何还原原来的窗口。

[此贴子已经被作者于2007-4-16 18:18:00编辑过]

只有一个表单打开表并不代表这个表就是以独占方式打开的，要以独占方式打开表需要在打开时声明，或者事先设置好。

1、如果你的表单使用数据环境打开表的，数据环境中有一个属性
exclusive,设为.t.
2、如果用命令打开表；
set exclusive on
use yourtablename in 0
or
use yourtablename in 0 exclusive

我明白是怎么回事了，也通过了删除，但是新的问题来了，

我是用grid控件来打开数据库的，如果用了pack命令就要关闭数据库，grid控件就没有任何数据显示，


我也试过在主程序中加入如下代码，实现在启动程序的时候删除标记删除的数据，但是没有任何反映，标记删除的数据仍然存在
open database .\shuju\商品销售管理数据库 exclusive

pack database

如果在主程序中加入如下代码，就会提示不能更新临时表，如果忽略，进入系统后就不能添加数据，也提示不能更新临时表
pack .\shuju\商品基本信息 exclusive
pack .\shuju\商品供应商信息 exclusive


终于找到办法解决问题了，能删除标记删除的数据，但是还是有点小问题，情况如下：

我在推出程序按钮的click事件代码中加入如下代码，能够退出以及删除标记删除数据，但是会提示“致命错误，异常代码＝C0000005
called form － form1.command1.click.line 6{…………省略，为当前打开的.sct文件}

tc=messagebox("确定退出通用商品管理系统",4+32,"通用商品管理系统")
if tc=6 &&如果确定退出
thisform.release()
clear
close all
pack .\shuju\商品基本信息 exclusive
pack .\shuju\商品供应商信息 exclusive
quit
endif



终于找到原因了，原来是我vf版本太低的原因，我换了7.0就没有任何问题，简直是浪费表情。

[此贴子已经被作者于2007-4-17 13:38:50编辑过]

,楼主精神真是令人佩服
我做删除的,就直接 DELE 掉
还没用过 PACK 的

del了还是要显示出来啊，能不显示？

可以不显示的
在INTI 那加上SET DELETED ON

[此贴子已经被作者于2007-4-17 14:59:08编辑过]

我一般是在关闭表单前用PACK的。