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

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

数据如下：


有且只有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编辑过]

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

我是用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编辑过]

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

奥，这样还行啊，我没看到这个代码，我去看看能不能行
谢谢啊

我就是开始以为del删除还能看到所以才用pack，结果……

能用del还是不用pack好了，通过了

我又发现一个有趣的问题：

我用的是Pageframe控件，每页的Grid控件分别调用不同的数据表，我改了数据表的名字，发现Pageframe控件的第2页的一些按钮的修改表单命令，必须用原来的表单的名字，而1，3页就必须要用新表单名。

比如说一个恢复del删除的数据的按钮


原按钮代码：

SELECT 商品基本信息

recall

把商品基本信息表改名为spjbxx

代码为

SELECT spjbxx

recall