各位大神，有个问题，做了好几次都会有漏项。

    一张表，字段xm，bydf，sydf，dc，分别对应姓名，本月得分，上月得分，档次。分数已经有了，现在想做的就是按照总人数的30%为优秀，dc='优秀'；总人数的40%为良好，dc='良好'，剩下的30%为合格，dc=‘合格’。
     因为涉及人数而且此人数要在表单中显示，所以不能有小数位，但是用round()函数四舍五入后算出的人数相加和总人数又不一致，在赋值过程中总是会出现问题，请大神们指教应该如何实现。

use test
count to a
a_yx=round(a*30/100,0)
a_lh=round(a*40/100,0)
a_hg=round(a*30/100,0)

b=a-a_yx-a_lh-a_hg

IF b<0
a_hg=a_hg-1
ELSE
IF b>0
a_hg=g_hg+1
ENDIF
ENDIF



GO TOP
FOR a1=1 TO a_yx
GO a1
c=xm
UPDATE test SET dc='优秀' WHERE xm=c
endfor

FOR a2=1 TO a_lh
a1=a1+1
GO a1
c=xm
UPDATE test SET dc='良好' WHERE xm=c
ENDFOR

FOR a2=1 TO a_hg
a1=a1+1
GO a1
c=xm
UPDATE test SET dc='合格' WHERE xm=c
ENDFOR

我这么写总是提示记录超出范围。。。而且中间总会有漏项的。。。

忘排序了。。貌似。。。
use test
SELECT * FROM test ORDER BY bydf  DESC INTO TABLE tmp.dbf
SELECT tmp
count to a
a_yx=round(a*30/100,0)
a_lh=round(a*40/100,0)
a_hg=round(a*30/100,0)

b=a-a_yx-a_lh-a_hg

IF b<0
a_hg=a_hg-1
ELSE
IF b>0
a_hg=g_hg+1
ENDIF
ENDIF



GO TOP
FOR a1=1 TO a_yx
GO a1
c=xm
UPDATE test SET dc='优秀' WHERE xm=c
endfor

FOR a2=1 TO a_lh
a1=a1+1
GO a1
c=xm
UPDATE test SET dc='良好' WHERE xm=c
ENDFOR

FOR a2=1 TO a_hg
a1=a1+1
GO a1
c=xm
UPDATE test SET dc='合格' WHERE xm=c
ENDFOR

我这么写总是提示记录超出范围。。。而且中间总会有漏项的。。。

[此贴子已经被作者于2020-2-11 15:48编辑过]

不用这么麻烦，你直接需要对比的“分数”字段，作索引，然后，直接更新就可以了。
但你优秀 30%，良好 40%，合格 30%的比例，会有问题的，大概是这样
1.当在临界点时，有相同的分数，就会出现档次不同。比如；
第29，30，31名，分数相同，档次就不同了，29，30是优秀，31是良好。
2.30%，40%，30%的值不是整数。

是啊，就是因为四舍五入的问题，把这个东西搞的麻烦死了，我又重新弄了一段代码，应该可以实现了。。。


CLOSE DATABASES all
use test
SELECT * FROM test ORDER BY bydf  DESC INTO TABLE tmp
SELECT tmp
count to a
a_yx=round(a*30/100,0)
a_lh=round(a*40/100,0)
a_hg=round(a*30/100,0)

b=a-a_yx-a_lh-a_hg

IF b<0
a_hg=a_hg-1
ELSE
IF b>0
a_hg=g_hg+1
ENDIF
ENDIF

FOR a1=1 TO a
GO a1
c=xm
IF a1<=a_yx
UPDATE test SET dc='优秀' WHERE xm=c
ELSE
IF a1>a_yx AND a1<=a_yx+a_lh
UPDATE test SET dc='良好' WHERE xm=c
ELSE
UPDATE test SET dc='合格' WHERE xm=c
ENDIF
ENDIF
ENDFOR


是啊，当时是想如果两个人分数相同，按照上月分数进行排的，写代码可能要把两个分数加一起排序然后再赋值。。。

[此贴子已经被作者于2020-2-11 16:00编辑过]

*你看看下面简单的东西
CREATE CURSOR 排名(xm C(10),bydf N(10,2),sydf N(10,2),dc C(4))
INSERT INTO 排名(xm,bydf,sydf,dc) VALUES ("张三",95,90,"")
INSERT INTO 排名(xm,bydf,sydf,dc) VALUES ("李四",95,92,"")
INSERT INTO 排名(xm,bydf,sydf,dc) VALUES ("王五",95,89,"")
INSERT INTO 排名(xm,bydf,sydf,dc) VALUES ("赵六",90,92,"")
INSERT INTO 排名(xm,bydf,sydf,dc) VALUES ("陈七",95,93,"")
*这样排名就出来了
SELECT * FROM 排名 ORDER BY bydf DESC,sydf DESC INTO CURSOR 排名TMP
BROWSE

啊哈！！！帅！！谢谢！！学习了！！！