“不能访问选定表”，combo1控没有了。请老师看看！
一个表单：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控件就没有了。请老师看看怎么办？？谢谢

上传相关文件

比如有教师表， 教师表里有 所属系，教师姓名，我要用所属系来控制教师姓名然后删除不要的教师姓名，但删除会出现 ，不能访问选定表？

删除按钮代码是：
select 教师表
close all
use 教师表
delete from 教师表 where 教师姓名=thisform.pageframe1.
thisform.pageframe1.page3.grid1.recordsource=null
pack
thisform.pageframe1.page3.grid1.recordsource="教师表"


  msg=messagebox('确定要删除记录吗？',32+4,'系统提示')
*!*    if msg=
*!*         messagebox('保存成功！',64,'系统提示')
*!*        endif
  
 thisform.refresh

你都 close all 了，表BB也被close了。

select 教师表
close all &&将其删除
use 教师表
delete from 教师表 where 教师姓名=thisform.pageframe1.
thisform.pageframe1.page3.grid1.recordsource=null
pack
thisform.pageframe1.page3.grid1.recordsource="教师表"


  msg=messagebox('确定要删除记录吗？',32+4,'系统提示')
*!*    if msg=
*!*         messagebox('保存成功！',64,'系统提示')
*!*        endif
  
thisform.refresh

里面有组合框combo1 删除是提示不能访问选定表啊 ！求解 ，在这里谢谢各位亲！

我位置放错了，应该是：
close all
use 教师表
select 教师表
delete from 教师表 where 教师姓名=thisform.pageframe1.
thisform.pageframe1.page3.grid1.recordsource=null
pack
thisform.pageframe1.page3.grid1.recordsource="教师表"


  msg=messagebox('确定要删除记录吗？',32+4,'系统提示')
    if msg=
         messagebox('保存成功！',64,'系统提示')
      endif
  
thisform.refresh

close all放在哪都不行,你为什么要关闭?
另外,这种方式也不好,如果要做单条记录删除的话,可以在grid中设置双击一条记录,本条记录将被删除,不就完了吗.

[ 本帖最后由 muyubo 于 2015-5-24 18:53 编辑 ]

不用close  all的话会出现“你的表已使用”这样的问题？  我是要删除条件限定好多记录？谢谢！

可以在grid中设置双击一条记录,本条记录将被删除，这个怎么做    非常感谢！！

将表格的allowcellselection设为.f.
在表格的dblclick中写
dele
pack