程序想实现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并且无法修改，请问如何解决？

一般程序运行中,都不要随便用 close all
只有在程序开始或者退出时,才会用这个的.

你都colse all了，你下一步还准备做什么呢。程序的结束不应该有多个结束点，应该只有一个模块（或程序、表单），其他任何地方想结束程序时就调用这个模块。

把List1的数据源改成Public数组