VFP表单表格中删除记录

VFP表单表格中删除记录

2012-07-05 11:53提问者： 小潴唛蔸 |浏览次数：399次

一个Grid1，一个text1，一个command1，数据环境一张零件信息表独占属性为.T.。
Grid1属性recordsource--------0.表
                recordsourcetype--零件信息表
command1click代码：delete for 零件编号=thisform.text1.value
                                  pack
                                  thisform.refresh
我想运行表单的时候可以在text中输入零件编号，点击命令按钮后物理删除并刷新这个表单。就是删除后grid1显示的是删除后的表。
但是我这么写运行时，不是说表需要独占方式打开就是说文件正在使用。
求解。

我来帮他解答

满意回答

2012-07-07 22:22

我认为问题可能出在：
1）Grid1，使用“数据环境”，也就是用向导生成的，没有用use打开表，如果是这样，从数据环境中移除表，用命令在表单的init事件中打开，在释放表单时，不要忘记关闭表；
2）没有使用“数据环境”，打开表时没用独占命令，因为pack命令，需要独占表，
use  零件信息表  excl 。
3）“文件正在使用”，如果在第一次运行时不提示，之后就提示，说明在释放表单时，没关闭表；

 

推荐答案

2012-07-07 17:49

select 0
use 零件信息表
delete for 零件编号=thisform.text1.value
                                  pack
                                  thisform.refresh
 
这样应该可以的

0|评论

求助知友

fmpaul2008 | 当前分类：10 级

擅长安全软件：14 级 排名：3476 |来自团队vfp共乐园

按默认排序|按时间排序

 其他回答 共1条

2012-07-05 13:41uhmf|当前分类：12 级

不能执行PACK命令的
可以设置SET DELE ON，这样执行delete后就不会使用和显示已经逻辑删除的记录