程序想实现text1中输入字母，在list1中给出匹配结果供选择。

text1 手动改变事件中代码：
CLOSE ALL
SET SAFETY OFF  
SELECT DISTINCT qy FROM nzjyh WHERE ATC(chrtopy(ALLTRIM(this.value)),chrtopy(ALLTRIM(qy)))>=1 ORDER BY qy INTO TABLE jhtsq  &&chrtopy()是汉字转拼音首字母阳函数
DIMENSION s(1)
SELECT COUNT(qy) FROM jhtsq INTO ARRAY s
CLOSE ALL
IF s(1)>=1
USE jhtsq
this.Parent .list1.RowSourceType = 6
this.Parent .list1.rowsource="jhtsq.qy"
this.Parent .list1.ColumnCount=1
ENDIF

在text1中输入字母得到list1中查询结果后，如果此时去执行窗口中其它按钮操作，其它按钮中的close all 命令会关闭list1
所绑定的表，而报错，说“无法访问选定的表”。

在text1 lostfocus事件中，加上代码thisform.list1.rowsource="",之后点击list1,因为加上该句代码至使list1成了空白而无法选择。

目前，窗口中其它按钮中有很多的close all并且无法修改，请问如何解决？