Distinct Count

Comments

• gordk St.Catherines On. Canada.

  January 2010 edited 10:16AM

  inyour memo in the group footer
  in editmode select the aggregate button and build your aggregate expression.
• Anu de Deus Hampshire, UK

  January 2010 edited 10:16AM

  In the script:
  
  var LastCustNo : string;
  TotalCustomers : integer;
  
  procedure OnGroupHeader1.OnBeforePrint; << create this one by double-clicking in the event in the object inspector
  begin
  if LastCustNo <> (<Datasetname."Cust No">) then // << check the syntax here, with other examples, I'm not 100% sure
  inc(TotalCustomers);
  
  LastCustNo := <Datasetname."Cust No"> // << check the syntax here, with other examples, I'm not 100% sure
  end;
  
  function GetCustomerCount: string;
  begin
  result := inttostr(TotalCustomers);
  end;
  
  Then in the page editor, in the MemoView where you have [Distinct Count <Cust No>], simply make its text value exaclty as the next line:
  
  [GetCustomerCount]
  
  Should work, with some minimal adjustments.
  I hope it helps
  
  
• pcleslie

  January 2010 edited January 2010

  Dear Anu de Deus ,
  
  It Work!
  
  Thank a lot!
  
  Best Regards
  
  Leslie " border="0" alt="laugh.gif" />" alt=">" />