目的：分地市分科类统计“总成绩”表中各个分数的人数，并将其放入表A中
已知：总成绩表（zkzh，zcj），其中“zkzh”表示准考证号、“zcj”表示总成绩
      地市代码表（dsdm，dsmc），其中“dsdm”表示地市代码、“dsmc”表示地市名称
      科类代码表（kldm，klmc），其中“kldm”表示科类代码，“klmc”表示科类名称
解题思路：建立地市代码表和科类代码表作为循环条件，逐步求解后将结果合并
存在问题：现编程序如下，但是无法运行。刚开始学习vfp，不知如何修改……
求助：循环变量如何设置？如何把循环后的变量设为字段？
—————————————
set talk off
close all
clear
sele 1
sele distinct zcj from 总成绩表 into table A     &&从总成绩表中取出zcj的唯一值放入表A中
sele 2
use dsdmb          &&打开地市代码表
sele 3
use kldmb          &&打开科类代码表
sele 2
go top
do while .not. eof()
   ds=dsdm       &&从地市代码表中取出字段dsdm的值赋给变量ds
   sele 3
   do while .not. eof()      
       kl=kldm       &&从科类代码表中取出字段kldm的值赋给变量kl
       zdm=ds+kl     &&定义一个新变量zdm，它的值等于ds+kl，此处应是字符型变量
       select count(zcj)as rs&zdm,zcj from 总成绩 where subs(zkzh,1,2)=ds and subs(zkzh,5,1)=kl into cursor B   &&计算总成绩表中每个分数的人数，并将人数放到临时表B的“rs+zdm”字段中；此处的字段“rs+zdm”应该是可变的
       select A.zcj,B.rs&zdm from A left outer join B on A.zcj=B.zcj into cursor temptj    && 将表A和表B连接起来并将结果放到临时表temptj中      
       select zcj,rs&zdm from temptj into table A   &&用临时表temptj 替换表A      
       sele 3      
       skip        
    enddo   
    sele 2   
    skip
enddo
set talk on
———————————
热盼达人帮助，此处先行谢过！

select ds,kl,zcj,count(*) as rs from (select subs(zkzh,1,2) as ds,subs(zkzh,5,1) as kl ,zcj from 总成绩表) a group by 1,2,3 into table temp

谢谢cnfarer大大！
您写的这段代码运行后的结果是：
ds kl zcj rs
01 1  0   234
01 1  1   1
01 1  2   0
    ……
01 3  0   123
01 3  2   1
    ……
想要的结果是：
zcj   rs011   rs013 ……
0      234     123  ……
1       1        0  ……
2       0        1  ……
      ……
再烦请您考虑下该如何实现。