一个表单：formXX
两张表：表AA    表BB
控件：   grid1    combo1     command  edit3  edit1
以上控件都在表单formXX上。在表单数据环境中已加入表AA 和 表BB
表AA是 grid1 的数据源，表BB是combo1的数据源  以关联
command  click代码如下：
close all
use d:\zxwater\data\m112.DBF   
dele all
pack
close all
use d:\zxwater\data\m112.DBF
 append from d:\zxwater\data\表AA.DBF for between (表AA.sbbh ,val(thisform.edit1.VALUE),val(thisform.edit3.VALUE))

use d:\zxwater\data\表AA.DBF
 dele from 表AA.DBF where  between (表AA.sbbh ,val(thisform.edit1.VALUE),val(thisform.edit3.VALUE))
 pack
THISFORM.GRID1.visiBLE=.T.
thisform.grid1.RecordSource=NULL
thisform.GRID1.RECORDSOURCE="表AA"
问题：如果没有combo1控件，或者表BB不和combo1相关联，以上代码动行正常。
一旦把表BB和combo1相关联，执行command1的click事件，就会出现“不能访问选定表”此时combo1控件就没有了。请老师看看怎么办？？谢谢

既然 表BB和combo1关联, 就不要用close all~ 可改成:

command  click代码如下：
sele 0
use d:\zxwater\data\m112 excl
zap
append from d:\zxwater\data\表AA.DBF for between (表AA.sbbh ,val(thisform.edit1.VALUE),val(thisform.edit3.VALUE))
use

thisform.grid1.RecordSource=""
sele 表AA
dele from 表AA.DBF where  between (表AA.sbbh ,val(thisform.edit1.VALUE),val(thisform.edit3.VALUE))
pack
thisform.GRID1.RECORDSOURCE="表AA"
THISFORM.GRID1.visiBLE=.T.
thisform.GRID1.refresh

还是没有解决