表1是成绩表：
学号 科目代码 成绩
2013001 01    95   
2013001 02    100  
2013001 03    100  
2013001 99    295
2013002 01    80   
2013002 02    90  
2013002 03    95  
2013002 99    265
2013003 01    90   
2013003 02    98  
2013003 03    92
2013002 99    280
……
 表2是科目表：
 科目代码 科目名称
01 语文
02 数学
03 英语
99 总分
表3是总表：
学号 姓名 语文 数学 英语 总分
2013001 张三
2013002 李四
2013003 王五
……
如何实现根据表1和表2的数据填入表3。

repl all 语文 with 成绩 for 科目代码="01"

CREATE CURSOR 学生信息 (学号 C(7),姓名 C(6))
INSERT INTO 学生信息 VALUES ([2013001],[张三])
INSERT INTO 学生信息 VALUES ([2013002],[李四])
INSERT INTO 学生信息 VALUES ([2013003],[王五])

CREATE CURSOR 科目表 (科目代码 C(2),科目名称 C(4))
INSERT INTO 科目表 VALUES ([01],[语文])
INSERT INTO 科目表 VALUES ([02],[数学])
INSERT INTO 科目表 VALUES ([03],[英语])
INSERT INTO 科目表 VALUES ([99],[总分])

CREATE CURSOR 成绩表 (学号 C(7),科目代码 C(2),成绩 N(3))
INSERT INTO 成绩表 VALUES ([2013001],[01],95)
INSERT INTO 成绩表 VALUES ([2013001],[02],100)
INSERT INTO 成绩表 VALUES ([2013001],[03],100)
INSERT INTO 成绩表 VALUES ([2013001],[99],295)
INSERT INTO 成绩表 VALUES ([2013002],[01],80)
INSERT INTO 成绩表 VALUES ([2013002],[02],90)
INSERT INTO 成绩表 VALUES ([2013002],[03],95)
INSERT INTO 成绩表 VALUES ([2013002],[99],265)
INSERT INTO 成绩表 VALUES ([2013003],[01],90)
INSERT INTO 成绩表 VALUES ([2013003],[02],98)
INSERT INTO 成绩表 VALUES ([2013003],[03],92)
INSERT INTO 成绩表 VALUES ([2013003],[99],280)

* VFP6.0代码
SELECT 学号,SUM(IIF(科目代码=[01],成绩,0)) 语文,SUM(IIF(科目代码=[02],成绩,0)) 数学,;
  SUM(IIF(科目代码=[03],成绩,0)) 英语,SUM(IIF(科目代码=[99],成绩,0)) 总分 FROM 成绩表 GROUP BY 学号 INTO CURSOR ZF
SELECT A.学号,A.姓名,B.语文,B.数学,B.英语,B.总分 FROM 学生信息 A,ZF B WHERE A.学号==B.学号

* VFP9.0代码
SELECT A.学号,A.姓名,B.语文,B.数学,B.英语,B.总分 FROM (SELECT 学号,SUM(IIF(科目代码=[01],成绩,0)) 语文,;
  SUM(IIF(科目代码=[02],成绩,0)) 数学,SUM(IIF(科目代码=[03],成绩,0)) 英语,SUM(IIF(科目代码=[99],成绩,0)) 总分 ;
  FROM 成绩表 GROUP BY 学号) B,学生信息 A WHERE A.学号==B.学号