回 帖 发 新 帖 刷新版面

主题:小弟遇到了这样的问题  大哥 帮办忙 大姐姐也帮办我呀

由于工作需要,经常筛选一些油井的生产状况,最近油气特别多 ,于是自己写了一个程序想减轻点负担,就是采用 do case来满足条件的筛选  但是运行时候总是出现“操作符/操作数类型不匹配”找了好几天没有找到原因  望姐姐 哥哥能帮忙  代码如下
use D:\工况报表
do while not eof() 
do case
case 沉没度>400 .and.泵效>60
repl 工况 with 潜力区
case 50=<沉没度=< 400 .and.泵效>=60
repl 工况 with 合理区
case 沉没度>400 .and.泵效< 60
repl 工况 with 断漏区
case 沉没度=< 200 .and.20=< 泵效< 60
repl 工况 with 供液不足区
case 沉没度=< 100 .and.泵效=< 20
repl 工况 with 严重供液不足区
otherwise
repl 工况 with 待落实区
endcase
skip
enddo
return 
copy to D:\工况报表(已分析结果) type xls
delete file D:\工况报表
看看什么地方有问题  谢谢  谢谢[size=3][/size]

回复列表 (共11个回复)

11 楼

use D:\工况报表   alias 工况报表
select 工况报表

*--如果还不行就用下面代码调试
set echo on
susp
*--
do while not eof() 
do case
case 沉没度>400 .and.泵效>60
repl 工况 with 潜力区   && “潜力区”,以下同此
case 50=<沉没度=< 400 .and.泵效>=60 &&这句肯定是错的
repl 工况 with 合理区
case 沉没度>400 .and.泵效< 60
repl 工况 with 断漏区
case 沉没度=< 200 .and.20=< 泵效< 60  &&这句肯定是错的
repl 工况 with 供液不足区
case 沉没度=< 100 .and.泵效=< 20
repl 工况 with 严重供液不足区
otherwise
repl 工况 with 待落实区
endcase
skip
enddo
return 
copy to D:\工况报表(已分析结果) type xls
delete file D:\工况报表

我来回复

您尚未登录,请登录后再回复。点此登录或注册