Option 1 will not be the fastest. This will be faster than option 1 (no macro expansion and SCAN WHILE). However, your network speed could have an affect on which is faster. I would go with option 2.

Local lnTotalOrder, lcCustID

lnTotalOrder = 0
lcCustID = "0008"

Seek lcCustID    && Seek "0008"
SCAN while Customer.Cust_ID=lcCustID
   lnTotalOrder = lnTotalOrder + Customer.OrderAmount
EndSCAN
Return (lnTotalOrder)

>Hi everyone,
>
>Which of the commands below would execute faster assuming you have a million records and 200,000 of this records corresponds to the CUST_ID to compute the OrderAmount?
>
>1. (PRG)
>

>Local lnTotalOrder, lcCustID
>
>lnTotalOrder = 0
>lcCustID = "0008"
>
>Seek &lcCustID    && Seek "0008"
>Do while Customer.Cust_ID=&lcCustID
>   lnTotalOrder = lnTotalOrder + Customer.OrderAmount
>   Skip
>Enddo
>Return (lnTotalOrder)
>

>
>or
>
>2. (SQL)
>

>Select Customer.Cust_ID, sum(Customer.OrderAmount) As lnTotalOrder;
>from Customer  into cursor temp where Customer.Cust_ID="0008" Group by Customer.Cust_ID
>