以下是引用tlliqi在2014-5-20 21:39:00的发言：

以语文人数为例：在4楼代码中做下变通
*--各科人数统计
Select sum(IIF([语文]$km,1,0)) 语文人数 From Temp Into Cursor Temp1
Select Temp1
Browse

以下是引用sylknb在2014-5-20 17:25:08的发言：

现在我想在下表中分别求出各科的人数。
如下格式
库1
报名点代码，地理人数
库2
报名点代码，历史人数
库3
报名点代码，化学人数
，，，，


下面的代码为何不行，找不到‘地理’列
ckm='地理化学历史生物数学物理英语政治'
nkm=len(ckm)
for i=1 to nkm STEP 2
 dkm=substrc(ckm,i,2)
select 报名点代码,count(*) as &dkm. from Temp1.DBF where &dkm.$km group by 报名点代　 into table &dkm.
毛病可能出在count(*) as &dkm.

zkm='地理,化学,历史,生物,数学,物理,英语,政治'
nkm=alines(fkm,zkm,[,])
FOR i=1 TO nkm
select 报名点代码,SUM(IIF(fkm(i)$报考科目,1,0)) &fkm(i)人数 FROM ls2 GROUP BY 1 into table &fkm(i)
endf

以下是引用sylknb在2014-5-20 16:34:12的发言：

sylkn4@ 谢谢了

以下是引用liuxingang28在2014-5-20 13:56:21的发言：

尽管楼主的表结构设计并不利于统计报考各科目的人数，但我还是对楼主的问题给出了解决方案：
为 ls2.dbf 新增一个字段 subject c(50)，用于保存整理后的报考课目，然后执行如下代码：
CLOSE ALL
USE ls2
SCAN FOR !EMPTY(报考科目)
    cStr = ','+ALLT(报考科目)+','        && 为报考科目加前后定界符，便于使用 STREXTRACT()提取科目
    nNum = OCCURS(',',cStr) - 1          && 报考科目数
    DIMENSION aStr[nNum]                 && 将各科目保存到数组
    FOR i = 1 TO nNum
        aStr[i] = ALLT(STREXTRACT(cStr,',',',',i))
    NEXT
    = ASORT(aStr)                        && 对科目进行排序
    cStr = ''                            && 由数组重新组合成报考科目字符串
    FOR i = 1 TO nNum
        cStr = cStr + IIF(i=1,'',',')+aStr[i]
    NEXT
    REPLACE subject WITH cStr            && 保存排序后的报考科目
ENDSCAN
GO TOP
BROWSE

以下是引用sylknb在2014-5-22 09:25:13的发言：

DIMENSION aStr[nNum]                 && 将各科目保存到数组
    FOR i = 1 TO nNum
        aStr = ALLT(STREXTRACT(cStr,',',',',i))
    NEXT
中STREXTRACT函数第5个参数I表示何义？从for循环中STREXTRACT函数第5个参数I的值中1,2，3,4，5，。。VFP9帮助文件中第5个参数是1,2，4