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
Select Customer.Cust_ID, sum(Customer.OrderAmount) As lnTotalOrder; from Customer into cursor temp where Customer.Cust_ID="0008" Group by Customer.Cust_ID