clear
set clear on
set talk off
set safety off
thisform.refresh
check_pathdir = thisform.pageframe1.page3.txtAppImage.value            
if not file(check_pathdir)                                            
   messagebox( '请选择数据库', 0+48+0, "信息提示")
ELSE
use &check_pathdir
m1=0
m2=0
m3=0
m4=0
m5=0
m6=0
m7=0
m8=0
m9=0
m10=0
count to m1
sum all 奖金,加工天数,可靠性奖,运行指标,安全基金,效益奖,值日值宿,其他奖项  to m2,m3,m4,m5,m6,m7,m8,m9
thisform.pageframe1.page3.text1.Value=m1
thisform.pageframe1.page3.text2.Value=m2
thisform.pageframe1.page3.text3.Value=m3
thisform.pageframe1.page3.text4.Value=m4
thisform.pageframe1.page3.text5.Value=m5
thisform.pageframe1.page3.text6.Value=m6
thisform.pageframe1.page3.text7.Value=m7
thisform.pageframe1.page3.text8.Value=m8
thisform.pageframe1.page3.text9.Value=m9
 
endif
set safety on
set talk on
set clear off
close all
return

如上代码所示，我想在endif上面加入代码从check_pathdir表中筛选出 出勤天数<>20.92 的所有人并把结果显示到一个grid中。请教代码该如何写呢。
补充：我用select * from check_pathdir where 出勤天数<>20.92 into curs aa 运行不了。。。
请教论坛高手？？？

select * from check_pathdir where 出勤天数<>20.92 into curs aa

select * from check_pathdir where allt(出勤天数)<>20.92 into curs aa

不行。问题可能出在check_pathdir 这个是个变量。是不是表在USE状态下就不能再select了？

check_pathdir=allt(thisform.pageframe1.page3.txtAppImage.value)         

SELECT * FROM &check_pathdir WHERE 出勤天数<>20.92 INTO table aaa
thisform.pageframe1.page3.grid1.RecordSource="aaa"
thisform.pageframe1.page3.grid1.RecordSourceType= 0
我把上面的这段代码写在了后面，但是运行的时候提示文件正在使用！该怎么办呢。

if file('\ \aaa.dbf')
    delete file \ \aaa.dbf
endif
\ \内为具体路径
SELECT * FROM &check_pathdir WHERE 出勤天数<>20.92 INTO table aaa
thisform.pageframe1.page3.grid1.RecordSource="aaa"
thisform.pageframe1.page3.grid1.RecordSourceType= 0


或将SELECT * FROM &check_pathdir WHERE 出勤天数<>20.92 INTO table aaa
改成SELECT * FROM &check_pathdir WHERE 出勤天数<>20.92 INTO cursor aaa
这样就不用判断文件是否存在了


[ 本帖最后由 apple0072011 于 2012-2-1 14:57 编辑 ]

select * from check_pathdir where 出勤天数<>20.92 into curs aa
select * from &check_pathdir where 出勤天数<>20.92 into curs aa

说明一下，你的查询语句没对，check_pathdir为一字符串变量，你在打开表时用的是宏代换（use &check_pathdir）,&check_pathdir怕是指代的更一个表吧，但你数据又是从一个可能并不存在的表check_pathdir读取，肯定行不通了。

传上原表

check_pathdir = thisform.pageframe1.page3.txtAppImage.value
select * from check_pathdir
從這兩行看，你一定會出錯！