主题：[讨论]简化打印公式

下面的打印公式能正常打印，就是嫌公式太长，各位高手能帮忙简化一下吗？

OpenGrid("初三")AndSortCol("姓名",1) And FilterFor("班级", "=" ,1) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=", 2) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,3) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,4) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,5) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112)And FilterFor("班级", "=" ,6) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,7) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,8) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,9) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,10) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,11) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,12) And Report(grid,"各班成绩册空表",1,rows,2,2) And Do(112) And FilterFor("班级", "=" ,13) And Report(grid,"各班成绩册空表",1,rows,1,2) And Do(112) And FilterFor("班级", "=" ,14) And Report(grid,"各班成绩册空表",1,rows,1,2) And Do(112) And FilterFor("班级", "=" ,15) And Report(grid,"各班成绩册空表",1,rows,1,2) And Do(112) And FilterFor("班级", "=" ,17) And Report(grid,"各班成绩册空表",1,rows,1,2) And Do(112) And FilterFor("班级", "=" ,18) And Report(grid,"各班成绩册空表",1,rows,1,2) And Do(112) And FilterFor("班级", "=" ,19) And Report(grid,"各班成绩册空表",1,rows,1,2) And Do(112) And FilterFor("班级", "=" ,20) And Report(grid,"各班成绩册空表",1,rows,1,2) And Do(112)

这样试试？

OpenGrid("初三")And SortCol("姓名",1) And Eval("FilterFor(""班级"", ""="" ,"+Substitute(ListFor(Grid,"班级",1),"|",",2) And Report(grid,""各班成绩册空表"",1,rows,2,2) And FilterFor(""班级"", ""="" ,")+",2) And Report(grid,""各班成绩册空表"",1,rows,2,2)")

谢谢了