这个方法笨一点，你可以试一试。supplypart是字符型，U_Price是数值型，没见到附图。
INDEX on supplypart+STR(U_Price,10,2) TO Sy
GO top
jh=supplypart
dj=U_Price
DO WHILE !EOF()
IF supplypart=jh
REPLACE U_Price WITH dj
ELSE
jh=supplypart
dj=U_Price
ENDIF
SKIP 
ENDDO

谢谢楼上的兄弟了

[img]http://vfp.sunyear.com.tw/files/0615_170.jpg[/img]

不会上传图片啊

SELECT SUPPLYPART FROM AA GROUP BY 1 INTO CURS TMP
sele aa
FOR I =1 TO RECCOUNT("tmp")
    MinPRICE=10000
    GO i in tmp
    mysup=tmp.SUPPLYPART
    SCAN FOR SUPPLYPART=mysup
         MinPRICE=min(u_price,MinPRICE)
    ENDSCAN 
    REPLACE all U_price with MinPRICE for SUPPLYPART=mysup
NEXT

呵呵，觉得可能楼主的一些结构安排不太合理，试试我的笨方法，数据多的话处理会快点：

select a
sort to temp1 on supplypar,u_price
use temp1 in 0
select temp1
index on supplypart+str(U_Price*100,10) TO px unique  &&千万不能加ALLTRIM，没有空格就排不正确了
copy to temp2.dbf
set index to
dele file px.idx
use temp2 in 0
select temp2
scan
    update A set a.u_price=temp2.u_price where a.supplypar=temp2.supplypar
endscan
select temp1
use
select temp2
use
dele file temp1
dele file temp2