程序代码:
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.学号