我是按你提供的数据写代码的

建议楼主提问题是将表发上来，如果有需要保密的数据可以用随机数修改一下。不要只发图片上来，让别人重新构造表。

不好意思，写错了。公式是
update 表名 set 表名.建议最高进货价=(select max(进货价) from 表名 a where 表名.货物名称==a.货物名称 and a.渠道等级=="A")

版主，各位路过的高人，麻烦再给看看这个问题吧。

没有A级渠道，所以为空了。

CLOSE TABLES ALL
CLEAR
USE hwjgb ALIAS hwjgb
SELECT hwjgb
DIMENSION abc(1,1)
SELECT hwmc DISTINCT FROM hwjgb INTO ARRAY abc
FOR i=1 TO ALEN(abc)
SET FILTER TO hwmc=abc(i)
BROWSE
CALCULATE CNT(jhj),MAX(jhj) TO cnt_a,max_a FOR UPPER(qddj)="A"
CALCULATE CNT(jhj),MAX(jhj) TO cnt_b,max_b FOR UPPER(qddj)="B"
IF cnt_a>0
REPLACE zgjhzdj WITH max_a all
ELSE
REPLACE zgjhzdj WITH max_b all
ENDIF
ENDFOR
SELECT hwjgb
SET FILTER TO
GO top
BROWSE
close table all

CLOSE TABLES all
SELECT distinct hwmc FROM hwjgb INTO CURSOR hwtmp
FOR i=1 TO RECCOUNT()
    SELECT hwtmp
    GO i
    phwmc=ALLTRIM(hwmc)
    SELECT qddj,jhj FROM  hwjgb WHERE ALLTRIM(hwmc)==phwmc ORDER BY qddj,jhj DESC INTO CURSOR jgtmp
    GO TOP IN jgtmp
    REPLACE zgjhzdj WITH jgtmp.jhj for ALLTRIM(hwmc)==phwmc IN hwjgb
ENDFOR

感谢“gs2536785678”！感谢“xuminxz”！
我把问题想简单了，以为一个UPDATE语句就能解决问题。