主题：怎样通过表单上的删除按钮删除表的一条记录？
baiyanxiang
[专家分：0] 发布于 2012-01-04 08:19:00
表单上有删除按钮，其click 代码为：
if messagebox('真的要删除证号：'+allt(str(工号))+'的全部信息吗？',4+32,'提示')=6
thisform.grid1.recordsource=null
dele
pack
thisform.grid1.recordsource="gzb"
thisform.refresh
endif
点击删除按钮出错：提示文件必须必独占方式打开
回复列表 （共7个回复）
沙发
martine [专家分：4950] 发布于 2012-01-04 14:58:00
表格的最左列有个空格,点击后变黑,即为删除标志,再按你说的按钮就删除了,说必须以独占方式打开,可能是你运行时的模式错了,或那个表的属性设置有误
板凳
Y4587 [专家分：100] 发布于 2012-01-04 16:14:00
我都是忽略删除标记，然后表退出时，pack
4 楼
baiyanxiang [专家分：0] 发布于 2012-01-04 20:04:00
问题已解决：
在表单里Grid1 代码 过程 AfterRowColchange
LPARAMEPERS nColindex
thisform.refresh
但上述代码什么意思，看不懂？请知道者帮忙解释
5 楼
alpen [专家分：1140] 发布于 2012-01-06 11:14:00
1、估计问题出在这里：
thisform.grid1.recordsource="gzb"
thisform.refresh
可以
先关闭表：“GZB”
再次打开:“GZB”
继续执行
thisform.grid1.recordsource="gzb"
thisform.refresh
应该能解决，当然不是最好的办法。
AfterRowColchange----- 表格的当前行变了后，执行下面的代码
LPARAMEPERS nColindex
thisform.refresh
但上述代码什么意思，
6 楼
lygcw9603 [专家分：250] 发布于 2012-01-27 00:53:00
设置表单的数据环境，当前表以独占方式打开
7 楼
jiafangliang [专家分：0] 发布于 2012-02-07 22:05:00
select gzb
use gzb excl
pack在unload时进行
我来回复
您所在位置：