谢谢，对我这样水平更好理解一点，这样其实您以前分享过，不过我没学会举一反三

SELECT DISTINCT bmddm,;
    000000 物理,; 
    000000 化学,; 
    000000 生物,; 
    000000 政治,; 
    000000 历史,;
    000000 地理;
    FROM 表2 INTO CURSOR tj READWRITE
SELECT tj
INDEX on bmddm TAG tj_bmddm
SELECT 表2
SET RELATION TO bmddm INTO "tj"
SCAN 
    IF "物理" $ xkkmzhmc
        REPLACE tj.物理 WITH tj.物理 + 1
    ENDIF
    IF "化学" $ xkkmzhmc
        REPLACE tj.化学 WITH tj.化学 + 1
    ENDIF 
    IF "生物" $ xkkmzhmc
        REPLACE tj.生物 WITH tj.生物 + 1
    ENDIF 
    IF "政治" $ xkkmzhmc
        REPLACE tj.政治 WITH tj.政治 + 1
    ENDIF 
    IF "历史" $ xkkmzhmc
        REPLACE tj.历史 WITH tj.历史 + 1
    ENDIF 
    IF "地理" $ xkkmzhmc
        REPLACE tj.地理 WITH tj.地理 + 1
    ENDIF 
ENDSCAN
SELECT * FROM tj

谢谢，非常正确，对我这样初级水平浅显好理解掌握，我在您语句末尾加上这句合计也有了
SELECT * FROM tj UNION ALL SELECT '合计',SUM(物理),SUM(化学),SUM(生物),SUM(政治),SUM(历史),SUM(地理) FROM tj