一個表單里有一個grid1用來顯示記錄。需要做一個刪除按鈕用來刪除grid1中選定的記錄。
表單Init事件中使用數據表代碼:
use 表名
thisform.grid1.recordsource=null
thisform.grid1.recordsource= "select * into cursor cbuy from 表名 "
thisform.grid1.recordsourcetype=4
刪除按鈕代碼:
use
use 表名 exclusive
DELETE FROM 表名 WHERE ...
PACK
運行點刪除按鈕提示檔案被使用,use 表名 exclusive 這行錯誤。應該怎么改正呢?
------解决方案--------------------------------------------------------
表單Init事件
close data all
set exclusive on
use 表名
this.grid1.recordsource=null
this.grid1.recordsourcetype=1
thisform.grid1.recordsource= "表名 "
刪除按鈕代碼
delete
thisform.grid1.recordsource=null
pack
thisform.grid1.recordsource= "表名 "
thisform.refresh