一个班一个sheet就可以了

麻烦帮我看一下，我还是不会写如何在每班结束处插入分页符，文件在项目的成绩打印表单出，谢谢！

..........
FOR j = 1 TO n_jls  
    GO j
    FOR k = 1 TO n_zds
        c_name = ALLTRIM(FIELD(k))
        oleapp.cells(j+4,k).value = cjlsb.&c_name
    ENDFOR  
ENDFOR  
.........
把上段代码改为

班级_tmp=''
j=4
SCAN
    j=j+1
    IF ALLTRIM(班级)<>班级_tmp
        班级_tmp=班级
        IF j>5
            oleapp.ActiveSheet.Rows[j].PageBreak   =   1
        ENDIF
    ENDIF
    FOR k = 1 TO n_zds
        oleapp.cells(j,k).value = EVALUATE(FIELD(k))
    ENDFOR
ENDSCAN

另外  b = b+'班级 ='+"'"+c_bj+"'"+' or ' 这句子中的“班级”请加上ALLTRIM(),不然查不出数据

改成:
b = b+'ALLTRIM(班级) ='+"'"+c_bj+"'"+' or '

收到的鲜花

• tlliqi 于 2014-11-10 08:04 送鲜花  20朵   附言：加分

谢谢，我去试试看！

结果如何？

进来学习学习

成功了，就是要将"班级_tmp=班级"换成“班级=班级_tmp”,谢谢大家！

oleapp.ActiveSheet.Rows[j].PageBreak   =   1 不错