看了你的《按项目求和》的回复，在原程序中，只能对相同名称的进行汇总，不能按名称、规格型号两个字段分类汇总。
因为程序中索引和求和的思路看不懂，修改了多次也不能实现。
我是想名称不同，规格不同都要分别汇总。

最后的结果是下表中的内容吗

第1个是原始表，第2个是运行后的结果，没能按型号汇总

型号也不对，列出了2个DN15,应该是名称相同、型号相同的汇总在一起，

但是你的单位不同啊

可以先不管单位，我计划在前面的添加数据时做一个自动纠正不符合要求的“单位”到程序。
因为有些数据是用excel导入到，所以我想必须做个自动纠正的程序。

CLOSE DATABASES ALL
SELECT DISTINCT 计划编号 FROM 表a INTO ARRAY ajh
SELECT DISTINCT 材料名称,型号 FROM 表a INTO ARRAY amc
*LIST MEMORY LIKE ajh
cStr="材料名称 c(50),型号 c(10),合计 n(6)"
FOR i=1 TO ALEN(ajh)
    cStr=cStr+","+ALLTRIM(ajh[i,1])+" n(4)"
ENDFOR
CREATE CURSOR tj (&cStr)
APPEND FROM ARRAY amc
INDEX ON 材料名称+型号 TAG xy
SELECT 表a
SET RELATION TO 材料名称+型号 INTO tj
SCAN
    cbh=ALLTRIM(表a.计划编号)
    REPLACE (cbh) WITH EVALUATE(cbh)+表a.数量 IN tj
ENDSCAN
SET RELATION TO
SELECT tj
SET ORDER TO
* 行合计
lnsum=""
FOR i=4 TO FCOUNT()   &&函数fcount()返回表中的字段数目
    lnsum=lnsum+"+"+FIELD(i) &&从第4列开始做行累加
ENDFOR
REPLACE ALL 合计 WITH &lnsum
BROWSE

咋整出来的？

运行没问题，是我要点结果。我研究研究。多谢啦