| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 825 人关注过本帖
标题:再次请教一个问题,请高手进!!!
只看楼主 加入收藏
grb914
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-11-7
结帖率:80%
收藏
已结贴  问题点数:20 回复次数:10 
再次请教一个问题,请高手进!!!
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 运行不了。。。
请教论坛高手???

搜索更多相关主题的帖子: 安全 数据库 safety 可靠性 file 
2012-02-01 08:46
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:7 
select * from check_pathdir where 出勤天数<>20.92 into curs aa

select * from check_pathdir where allt(出勤天数)<>20.92 into curs aa
2012-02-01 09:45
grb914
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-11-7
收藏
得分:0 
不行。问题可能出在check_pathdir 这个是个变量。是不是表在USE状态下就不能再select了?
2012-02-01 09:51
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
check_pathdir=allt(thisform.pageframe1.page3.txtAppImage.value)         
2012-02-01 11:09
grb914
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-11-7
收藏
得分:0 
SELECT * FROM &check_pathdir WHERE 出勤天数<>20.92 INTO table aaa
thisform.pageframe1.page3.grid1.RecordSource="aaa"
thisform.pageframe1.page3.grid1.RecordSourceType= 0
我把上面的这段代码写在了后面,但是运行的时候提示文件正在使用!该怎么办呢。
2012-02-01 11:16
apple0072011
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:9
帖 子:249
专家分:989
注 册:2011-8-17
收藏
得分:7 
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 编辑 ]

天道酬勤
2012-02-01 14:56
lygcw9603
Rank: 5Rank: 5
等 级:职业侠客
威 望:1
帖 子:233
专家分:357
注 册:2006-8-27
收藏
得分:0 
select * from check_pathdir where 出勤天数<>20.92 into curs aa
select * from &check_pathdir where 出勤天数<>20.92 into curs aa
2012-02-03 17:17
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
说明一下,你的查询语句没对,check_pathdir为一字符串变量,你在打开表时用的是宏代换(use &check_pathdir),&check_pathdir怕是指代的更一个表吧,但你数据又是从一个可能并不存在的表check_pathdir读取,肯定行不通了。
2012-02-04 10:06
lygcw9603
Rank: 5Rank: 5
等 级:职业侠客
威 望:1
帖 子:233
专家分:357
注 册:2006-8-27
收藏
得分:0 
传上原表
2012-02-04 20:32
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
check_pathdir = thisform.pageframe1.page3.txtAppImage.value
select * from check_pathdir
從這兩行看,你一定會出錯!

授人以渔,不授人以鱼。
2012-02-04 22:42
快速回复:再次请教一个问题,请高手进!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056389 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved