FROM OD_BAK;

　　GROUP BY NEWNUM;

　　ORDER BY 新訂單號,器件號;

　　INTO CURSOR CurTable

　　DO WHILE NOT EOF()

　　&&得到單價和數(shù)量

　　SELECT MIN(單價) AS 最低價,SUM(數(shù)量) AS 數(shù)量合計;

　　FROM OD_BAK;

　　WHERE RIGHT(訂單號,1)=CurTable.新訂單號 AND 器件號=CurTable.器件號;

　　INTO ARRAY AFieldsValue

　　INSERT INTO OD_NEW VALUES;

　　(CurTable.新訂單號,CurTable.器件號,CurTable.器件名,AFieldsValue(1,1),AFieldsValue(1,2))

　　SKIP

　　ENDDO

　　CLOSE ALL

　　SET TALK ON

　　SET SAFETY ON

　　第三步：單擊"保存"工具欄按鈕，以文件名prog1.prg保存程序文件在考生文件夾下，并運(yùn)行程序。