VF课程设计报告模板(16)

CASE J=4

KM_DAIMA="ZZ" KM_MCH="政治"

CASE J=5

KM_DAIMA="LS" KM_MCH="历史"

CASE J=6

KM_DAIMA="DL" KM_MCH="地理"

ENDCASE USE &BJ_DAIMA

AVERAGE &KM_DAIMA TO TEMP FOR ZF>=GFD_W ALL USE TEACHER.DBF

LOCATE FOR NAME=BJ_NAME.AND.KM=KM_MCH RKJSH=T_NAME USE

USE LKGF.DBF APPEND BLANK

REPLACE BJ WITH BJ_NAME,KM WITH KM_MCH,RK WITH RKJSH,PJF WITH TEMP USE

ENDFOR

ENDFOR &&整理报表文件 FOR J=1 TO 9

DO CASE

CASE I=1

KM_DAIMA="语文"

CASE I=2

KM_DAIMA="数学"