qx数据表里是这次我县语数英三科统考的成绩，有16间学校参加统考，学校代码分别从3702-3717，其中有部分寄读学生我把他们分成一组代码为3701，可以不参与统计，我需要统计各个学校的到考人数，学籍数（本次学籍数按到考人数算），巩固率（到考数/学籍数*100），优秀人数（总分大于245），优秀率，平均分，平均分率（平均分/300分），单科及格人数（语数英及格人数总和），单科及格率（单科及格人数/学籍数*3），综合比（巩固率20%+优秀率20%+平均分率20%+单科及格率40%）。

我校明天有检查，晚点给你看。不好意思！

谢谢

向上移就可以。

close databases all
set safety off
use tj in 0
for i=3 to fcount()
    blank all fields (field(i))
endfor
index on xxdm to xx
use qx in 0
select qx
set relation to xxdm into tj
scan
    jgrs=0
    for i=3 to 5
        if evaluate(field(i))>=60
            jgrs=jgrs+1
        endif
    endfor
    replace zxss with zxss+1,dks with iif(qx.zf=0,dks,dks+1),yxrs with iif(qx.zf>=245,yxrs+1,yxrs),;
    总分 with 总分+qx.zf,dkjgrs with dkjgrs+jgrs in tj
endscan
set relation to
select tj
set order to
calculate sum(zxss),sum(dks),sum(yxrs),sum(总分),sum(dkjgrs) to x1,x2,x3,x4,x5
go bottom
replace zxss with x1,dks with x2,yxrs with x3,总分 with x4,dkjgrs with x5
replace all ggl with dks*100/zxss,yxl with yxrs*100/zxss,pjf with 总分/zxss,pjfl with pjf*100/300,;

 dkjgl with dkjgrs*100/(zxss*3),zhb with ggl*0.2+yxl*0.2+pjfl*0.2+dkjgl*0.4
index on -zhb to px for between(xxdm,"3702","3717")
mc=1
bzhb=zhb
scan
    if zhb!=bzhb
        mc=mc+1
    endif
    replace pm with mc 
    bzhb=zhb
    mc=pm
endscan
set order to
browse

说明：
1、为了便于统计，在TJ.DBF中增加了一个字段：总分。
2、为了便于操作，使“全县”排在最后，将其代码改为“3720”
统计结果如下

    你把上面的页标头做在了细节带区，而把风细节带区的内容做在了页注脚里，所以报表内容打印出来的是页标头的内容，而页脚打印出来的内容是细节带区的内容，把你细节带区的内容往上移动就行了。

[此贴子已经被作者于2016-11-22 18:02编辑过]

谢谢老师

25楼 正解！满足楼主要求！昨天大雪，9点多才到家！雪景很好！

我们这边还穿短袖。