use 表名 exclusive
pack
thisform.grid1.recordsource="表名"
thisform.grid1.column1.width=100
thisform.grid1.column2.width=100
thisform.grid1.column3.width=140
thisform.grid1.column4.width=140
这样就行了

IF yn=1
thisform.grid1.recordsource=NULL
DELETE
PACK
thisform.grid1.recordsource="表名"
ENDIF

我也是的，删除时仍显示要以独占方式打开，请教各位怎么设置？

建议不要使用数据环境，不要使用生成器，表用CLOSE ALL后USE方式打开

在表单上右击，然后点击数据环境，再点击这个表的属性便可看到EXCLUSIVE。把它高置为T便行了。