各位老师：你们好！本人在工作遇到一个难题，请求各位老师帮助。
一个计算缴费指数的程序，从九0年开始到现在每年都缴了费比较好计算，关键是近几年才开始缴费的就遇到难题了。
下面是自己的一段代码，求各位老师帮助解决。在此先谢谢！
thisform.pageframe1.page2.Text17.value=0
P0  =thisform.pageframe1.page1.Txt工资1990.value
P1  =thisform.pageframe1.page1.Txt工资1991.value
P2  =thisform.pageframe1.page1.Txt工资1992.value
P3  =thisform.pageframe1.page1.Txt工资1993.value
P4  =thisform.pageframe1.page1.Txt工资1994.value
P5  =thisform.pageframe1.page1.Txt工资1995.value
P6  =thisform.pageframe1.page1.Txt工资1996.value
P7  =thisform.pageframe1.page1.Txt工资1997.value
P8  =thisform.pageframe1.page1.Txt工资1998.value
P9  =thisform.pageframe1.page1.Txt工资1999.value
P10 =thisform.pageframe1.page1.Txt工资2000.value
P11 =thisform.pageframe1.page1.Txt工资2001.value
P12 =thisform.pageframe1.page1.Txt工资2002.value
P13 =thisform.pageframe1.page1.Txt工资2003.value
P14 =thisform.pageframe1.page1.Txt工资2004.value         
P15 =thisform.pageframe1.page1.Txt工资2005.value
P16 =thisform.pageframe1.page1.Txt工资2006.value
P17 =thisform.pageframe1.page1.Txt工资2007.value
P18 =thisform.pageframe1.page1.Txt工资2008.value
P19 =thisform.pageframe1.page1.Txt工资2009.value
P20 =thisform.pageframe1.page1.Txt工资2010.value            
P21 =thisform.pageframe1.page1.Txt工资2011.value            
P22 =thisform.pageframe1.page1.Txt工资2012.value &&截止2012年
MM =thisform.pageframe1.page1.Text17.value      &&显示指数窗口
MM=ROUN((P0/167.58+P1/182.83+P2/204.83+P3/246.75+P3/335.67+P4/387.08+P5/429.67+;                        
P6/468.83+P7/494.92+P8/539.58+P9/620.42+P10/747.33+P11/855.67+P12/966.25+P13/1171.92+P14/1318.83+P15/1318.83+P16/1487.67+P17/1776+P18/2087+P19/2380+P20/2760+P21/3160+P22/省平工资)/(24-x),3) 　&& x是变量
R=MM*24
thisform.pageframe1.page1.Text17.value=roun(MM,3)
自己试作写一个代码没成功。
主要是想查出缴费字段为0的个数。
 FOR K = 1 TO FCOUNT()
    F( K ) = PADL(FIELD(K),8)   
     coun for F(K)=0 to x
 ENDFOR
还请老师赐教!

CLOSE DATABASES
USE 缴费表 IN 0
CREATE CURSOR t1 (fieldname c(50),n1 int)
SELECT 缴费表
FOR K = 1 TO FCOUNT('缴费表')
    if NOT TYPE(FIELD(k,'缴费表'))=='N'
        LOOP
    ENDIF

    SELECT 缴费表
    COUNT TO x FOR EVALUATE(FIELD(k,'缴费表'))=0
    IF x>0
        INSERT INTO t1 (fieldname,n1) VALUES (FIELD(k,'缴费表'),x)
    ENDIF
ENDFOR
select t1
brow &&各缴费字段为0的个数
close data


[ 本帖最后由 kiff 于 2013-4-15 16:06 编辑 ]

运行后显示：
操作符类型不匹配。

我修改了一下，你再看下吧吗
  if NOT TYPE(FIELD(k,'缴费表'))=='N'
        LOOP
    ENDIF

是数据值型的才统计，你要视你的实际，不要照抄

[ 本帖最后由 kiff 于 2013-4-15 16:16 编辑 ]

仍然是操作符类型不匹配。
指向这一段
MM=ROUN((P0/167.58+P1/182.83+P2/204.83+P3/246.75+P3/335.67+P4/387.08+P5/429.67+;                        
P6/468.83+P7/494.92+P8/539.58+P9/620.42+P10/747.33+P11/855.67+P12/966.25+P13/1171.92+P14/1318.83+P15/1318.83+P16/1487.67+P17/1776+P18/2087+P19/2380+P20/2760+P21/3160+P22/省平工资)/(24-x),3) 　&& x是变量

我没考虑你这句，只是统计你要的各缴费字段为0的个数,也不知你这句是什么意思，我不可能知你程序里的那么多东西，只有你是最清楚的,可能要你慢慢想了


[ 本帖最后由 kiff 于 2013-4-15 16:29 编辑 ]

你先了解你这句，各字段的类型，是不是都为数值型了，还有你那 X 又是不是数值型

[ 本帖最后由 kiff 于 2013-4-15 16:35 编辑 ]

缴费工资都是数值型，X也是数值型。

命令窗口试这样试下
?P0/167.58+P1/182.83+P2/204.83+P3/246.75+P3/335.67+P4/387.08+P5/429.67+;                        
P6/468.83+P7/494.92+P8/539.58+P9/620.42+P10/747.33+P11/855.67+P12/966.25+P13/1171.92+P14/1318.83+P15/1318.83+P16/1487.67+P17/1776+P18/2087+P19/2380+P20/2760+P21/3160+P22/省平工资
看了你的命题，不要试了。这些不是字段变量吧



[ 本帖最后由 kiff 于 2013-4-15 16:43 编辑 ]