在做项目是做了两个查询，一个是时间查询，一个是按购机类型查询，

1.在运行时间查询表单的时候，说我找不到别名XS
但我定义了别名
ININT事件如下；
set safe off
use 销售记录 alias xsjl in 1 exclusive
ThisForm.Grid1.RecordSource=""

查询命令按钮的如下：
use 销售记录 alias xsjl in 1 exclusive
ThisForm.Grid1.RecordSource=""
sele xsjl
sele * from xsjl where allt(购机时间)==allt() into cursor a1
sele a1
ThisForm.Grid1.RecordSource="a1"
thisform.refresh

2.在运行购机类型查询的时候说：不能识别的成员 GRID1
ININT事件如下：
set safe off
use 客户信息 alias kh in 1 exclusive
use 销售记录 alias xs in 2 exclusive
THISFORM.GRID1.RECORDSOURCE=''
查询命令按钮如下：
ThisForm.Grid1.RecordSource=""
sele xs
sele * from xs where allt(购机类型)==allt() into cursor a1
sele a1
ThisForm.Grid1.RecordSource="a1"
thisform.refresh

不知道是什么原因，还请各位大哥们帮忙，谢谢了！


以下是整个项目，麻烦大家了

1、combo1的rowsource你设置为xs.购机时间,请先打开表；
2、请将THISFORM.GRID1.RECORDSOURCE=''放置到init事件中

2、购机类型查询表单中load事件的代码放到init事件中去，就不会出现错误。我昨天给你修改编号查询时也是放在init事件中，如果放在load事件中，就把THISFORM.GRID1.RECORDSOURCE='' 这句删去。
   combo1 的数据源应进行分组，不然有许多相同的记录。

为了显示的效果，对grid1的一些属性应进行一些设置，如行、列的属性等。只是不要进行一些不必要的设置

[[it] 本帖最后由 glygly06 于 2008-12-15 09:04 编辑 [/it]]

1、把时间查询表单中查询按钮中的sele * from xsjl where allt(购机时间)==allt() into cursor a1 换成 sele * from xsjl where 购机时间=ctod() into cursor a1
  建议在表单的load事件或init事件中加上 close table all 这句，可防止“文件正在使用”的错误。（这句应放在你要打开表语句之前）

   use 销售记录 alias xsjl in 1 exclusive 这句在查询按钮中不必再使用了。
   
   把combo1 的rowsource属性设为  xsjl.购机时间

因为在load事件或init事件中设置了打开数据表的语句，因此在表单中没有必要设置数据环境。

[[it] 本帖最后由 glygly06 于 2008-12-15 09:09 编辑 [/it]]

非常感谢

又是这位大哥啊 真的很感激你~~~~~~~~~~~~

还是没有注意时间日期数据转换成字符的问题 ，明白了 谢谢