查了好多资料，我已进入死循环，弄不起来了。请求帮助。
有三个表，需按条件生成临时表，再利用生成的临时表，做成多明细报表。如下图


我把文件上传了，文件夹放在桌面使用。
请老师帮忙

发现几个问题
1.路径问题，不要用绝对路径，如 Use  C:\Users\Administrator\Desktop\学生成绩\成绩表.Dbf  In 0   &&在空闲区打开此表

这样子可不可以

是的，就是这样的，谢谢。老师能发上来吗

三个表拼在一起，科目成绩转换为字符型

搞不来，两个明细表弄不起来，都是字符型！

** Command1.Click
n起始号 = INT(VAL(thisform.text1.value))
IF n起始号 == 0
    RETURN 
ENDIF
n终止号 = INT(VAL(thisform.text2.value))
ASTACKINFO(ap)
cDefPath = ADDBS(JUSTPATH(ap[2]))
SET DEFAULT TO (cDefPath)
CLOSE DATABASES ALL 
OPEN DATABASE 学生考试成绩
** 
** 原索引不兼容本系统，考虑到兼容性，这几个表重新按 Machine 方式次序建索引
**
USE 学生表 IN 0 ORDER TAG 学生BH
USE 成绩表 IN 0 ORDER TAG 学生BH
USE 评语表 IN 0 ORDER TAG 学生BH
SELECT 学生表
bhSize = LEN(ALLTRIM(学生bh))
nFSize = FSIZE("学生bh")
SET RELATION TO 学生bh INTO 成绩表, 学生bh INTO 评语表
SET SKIP TO 成绩表, 评语表
FOR i=n起始号 TO n终止号
    c学号 = PADR(PADL(i,bhSize,"0"),nFSize," ")
    IF SEEK(c学号,"学生表")
        REPORT FORM 学生情况_2.frx PREVIEW FOR 学生表.学生bh==c学号 &&TO PRINTER 
    ENDIF
ENDFOR
SET SKIP TO
SET RELATION TO
CLOSE DATABASES ALL 

select * from 学生表 into cursor xs
scan
    select 考试mc, 语文 + space(20) 语文, 数学, 英语, 体育 from 成绩表 where 成绩表.学生bh == xs.学生bh INTO CURSOR cj READWRITE 
    INSERT INTO cj SELECT 日期, 平时纪律, "", "", "" FROM 纪律表 where 纪律表.学生bh == xs.学生bh ORDER BY 1 
    BROWSE 
endscan

学习啦，谢谢分享！

学习了，发现我的知识连个皮毛都不是，谢谢老师。
有一个问题，选择学生号打印，如果要打印学生号段，比如学号1到50，就生成50张报表，要一张一张手动打印。我本想是一键打印。