当前位置: 代码迷 >> VFP >> foxpro 有关问题 女朋友考小弟我
  详细解决方案

foxpro 有关问题 女朋友考小弟我

热度:3586   发布时间:2013-02-26 00:00:00.0
foxpro 问题 女朋友考我
各位一定请帮忙,我是个程序员,但是没学过foxpro,我女朋友给我她们的考试题,不会做大家说这不是太丢人了吗?请各位一定帮忙。谢谢!

题目如下:要用foxpro的语法写
假定有包含若干个纪录的表文件c1.dbf,其结构是:f1(N,3,0),f2(N,3,0)。编写程序,其功能是把各纪录中所有大于40的字段值累加起来,最后把加的结果存入第一个纪录的f2字段中。

------解决方案--------------------------------------------------------
USE c1
select c1
a=0
b=0
nSum=0
scan
if f1> 40
a=a+f1
endif
if f2> 40
b=b+f2
endif
endscan
nSum=a+b
go top
replace f2 with nSum

------解决方案--------------------------------------------------------
select sum(iif(fl> 40),fl,0) as flh into cursor t1 from c1
update c1 set c1.f2=t1.fhl where recno( 'c1 ')=1
------解决方案--------------------------------------------------------
题意不清,是不是F1和F2都要统计?

use c1
sum f1 to a1 for f1> 40
sum f2 to a2 for f2> 40
go top
repl f2 with a1+a2
use