SET SAFETY OFF
SET TALK OFF
CLEAR
FOR k=1 TO M &&M是班级数,提前在某地方赋值了,或者直接改为具体的班级数
cTable=PADL(k,2,'0')+'表'
SELECT STR(k,2) 班级,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 1,1),'ABCD')*2-1,2))) 班长管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 2,1),'ABCD')*2-1,2))) 班长生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 3,1),'ABCD')*2-1,2))) 班长帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 4,1),'ABCD')*2-1,2))) 班长纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 5,1),'ABCD')*2-1,2))) 班长学习,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 6,1),'ABCD')*2-1,2))) 体委管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 7,1),'ABCD')*2-1,2))) 体委生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 8,1),'ABCD')*2-1,2))) 体委帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd, 9,1),'ABCD')*2-1,2))) 体委纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,10,1),'ABCD')*2-1,2))) 体委学习,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,11,1),'ABCD')*2-1,2))) 团委管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,12,1),'ABCD')*2-1,2))) 团委生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,13,1),'ABCD')*2-1,2))) 团委帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,14,1),'ABCD')*2-1,2))) 团委纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,15,1),'ABCD')*2-1,2))) 团委学习,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,16,1),'ABCD')*2-1,2))) 劳委管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,17,1),'ABCD')*2-1,2))) 劳委生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,18,1),'ABCD')*2-1,2))) 劳委帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,19,1),'ABCD')*2-1,2))) 劳委纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,20,1),'ABCD')*2-1,2))) 劳委学习,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,21,1),'ABCD')*2-1,2))) 纪委管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,22,1),'ABCD')*2-1,2))) 纪委生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,23,1),'ABCD')*2-1,2))) 纪委帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,24,1),'ABCD')*2-1,2))) 纪委纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,25,1),'ABCD')*2-1,2))) 纪委学习,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,26,1),'ABCD')*2-1,2))) 美术管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,27,1),'ABCD')*2-1,2))) 美术生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,28,1),'ABCD')*2-1,2))) 美术帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,29,1),'ABCD')*2-1,2))) 美术纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,30,1),'ABCD')*2-1,2))) 美术学习,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,31,1),'ABCD')*2-1,2))) 男舍管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,32,1),'ABCD')*2-1,2))) 男舍生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,33,1),'ABCD')*2-1,2))) 男舍帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,34,1),'ABCD')*2-1,2))) 男舍纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,35,1),'ABCD')*2-1,2))) 男舍学习,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,36,1),'ABCD')*2-1,2))) 女舍管理,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,37,1),'ABCD')*2-1,2))) 女舍生活,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,38,1),'ABCD')*2-1,2))) 女舍帮助,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,39,1),'ABCD')*2-1,2))) 女舍纪律,;
SUM(VAL(SUBSTR('20181208',AT(SUBSTR(abcd,40,1),'ABCD')*2-1,2))) 女舍学习;
FROM (cTable);
INTO TABLE tmp
FOR i=1 TO 8
SELECT tmp
x1=EVALUATE(FIELD(i*5-3))/RECCOUNT(cTable)
x2=EVALUATE(FIELD(i*5-2))/RECCOUNT(cTable)
x3=EVALUATE(FIELD(i*5-1))/RECCOUNT(cTable)
x4=EVALUATE(FIELD(i*5+0))/RECCOUNT(cTable)
x5=EVALUATE(FIELD(i*5+1))/RECCOUNT(cTable)
INSERT INTO bj VALUES (tmp.班级,'j'+STR(i,1),x1,x2,x3,x4,x5)
ENDFOR
SELECT bj
BROWSE
ENDFOR
RETURN
[
本帖最后由 Tiger5392 于 2010-10-10 21:24 编辑 ]