为什么每次查询时总提示是否改变tb2？

[bocx9]

tb1是原表有两个字段，aa 和bb 我们要用aa字段进行查询,查询结果存在tb2中，
则在查询按钮中写。。。
THISFORM.GRID1.RECORDSOURCE=''
SELE aa,bb FROM tb1 where allt(aa)==allt(thisform.text1.value) INTO TABLE tb2 &&因为你要用查询结果表，所以不用cursor 这个SQL语句还有很多语法，你自己研究吧
IF _TALLY>0
thisform.grid1.recordsourcetype=0
THISFORM.GRID1.RECORDSOURCE='tb2' &&为表格控件设置数据源。
ELSE
MESSAGEBOX('没有符合要求的记录！')
retu
ENDIF
THISFORM.REFRESH
如何让程序不提示TB2是否改变？

[fj_jiangqi]

set safety off
试试看吧。
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[hzk99]

SELE aa,bb FROM tb1 where allt(aa)==allt(thisform.text1.value) INTO TABLE tb2
你这语句在每次生成时都会生成一个新的文件tb2,所以每运行一次都会出现是否覆盖原文件,
可以运行前首先把它删除:
if used('tb2') &&如果数据表打开,则先关闭
select tb2
use
endif
if file('tb2.dbf') && 删除文件
erase tb2.dbf
endif