现有一个学校的成绩总库（报名号，姓名，语文，数学，英语，……总分,班级号）,假设有100个班级,想编程实现一次性从这个成绩总库中分离出这100个班级的成绩库（班级号不一定是连续的）。反之，现有100个班级的成绩库，如何一次性合成一个学校的成绩总库来。请教各位老师！
当班级很少时一般都是copy for 班级号='01' to cjk01，这样一个一个copy，如果班级多了就有点头疼了。

[ 本帖最后由 施南人 于 2013-7-4 15:09 编辑 ]

有多少班就用多少成绩库？干嘛分出来，从总库做统计不更好吗？

是的，有多少班就要有多少成绩库。成绩要分出来给到各班主任。

[ 本帖最后由 施南人 于 2013-7-4 15:39 编辑 ]

SET SAFETY OFF
SELECT 班级号 dist FROM 成绩总库 INTO CURSOR bjk
FOR i=1 TO RECCOUNT()
GO i
nbj=班级号
SELECT * FROM 成绩总库 WHERE 班级号=nbj ORDER BY 总分 DESC INTO dbf "cjk"+ALLTRIM(nbj)
SELECT bjk
endf

多谢！

数据表合并

CLOSE DATABASE
USE 总库
FOR I=1 TO ADIR(ADBF,[*.DBF])
    APPEND FROM ADBF(I,1)
ENDFOR
BROWSE

用SCAN ENDSCAN 扫描实现班级从总库中分离

CLOSE DATABASE
SELECT DISTINCT 班级号 BJ FROM 总库 INTO CURSOR TMP
SCAN
   SELECT * FROM 总库 WHERE 班级号==TMP.BJ INTO TABLE [BJ]+ALLTRIM(班级号)
ENDSCAN

最好是上传数据表

[ 本帖最后由 sdta 于 2013-7-4 19:30 编辑 ]

非常感谢,学习了. 原先通过一个个部门导出来转换成EXCEL 不断复制粘贴,现在好了程序解决又快又好又正确.

再是各班上交汇总自动执行

在报名的时候经常会用到合并数据表，到了期中，期末考试时又要把成绩下发到各班。每次都一个表一个表的累加或分离，太麻烦，再次感谢两位老师的帮助！