cds:TClientDataSet;
no :TField
seq:TField
buy_no :TField
buy_qty :TField
sum(buy_qty) :TAggregateField針對相同的buy_no作sum(buy_qty)
----------------------------------------------
no   seq  buy_no  buy_qty 
A01  001  B001    100
A01  002  B001     50
          --------150--> ag1:TAggregateField.value
A01  003  B002     60
A01  004  B002     50
          --------110--> ag2:TAggregateField.value    請問可否用迴圈取得ag1,ag2的value?
 

Delphi Man

------
Delphi

你可用cds內建的 grouping level 來做但結構跟你說的有一點不同 以 no,buy_no 做 index GroupingLevel 設 2，就會有以下結果 no seq buy_no buy_qty ag A01 001 B001 100 150 A01 002 B001 50 150 A01 003 B002 60 110 A01 004 B002 50 110 若你要讀出不同的ag到別處，可以 while not eof 及判斷 no/buy_no 有否轉變來讀出資料。