You'll probably have to do this in a subreport because you need to count in a different order than your report.  Set up the same table structure as the main report (or just the main data tables if you have lookup tables), group by person instead of by program.  Then try using a couple of formulas - something like this:

You could also do it with a pair of arrays and a bit of jiggling.

In the Report Header, initialize the arrays like so:

WhileReadingRecords

Global StringVar Array TotName;
Global StringVar Array MultName;

ReDim TotName[1];
ReDim MultName[1];

TotName will end up holding all the names in the report.  MultName will end up holding all the names that appear more than once.  Note that if you have a lot of names, you may run into memory issues, and may need to try an alternate approach.

In the Details section, update the arrays like so:

WhileReadingRecords

Global StringVar Array TotName;
Global StringVar Array MultName;

IF {MyReport.MyName} in TotName THEN
    (IF Not({MyReport.MyName} in MultName) THEN
         (MultName[UBound(MultName)] = {MyReport.MyName};
          ReDim Preserve MultName[UBound(MultName)+1];))
ELSE
    (TotName[UBound(TotName)] = {MyReport.MyName};
    ReDim Preserve TotName[UBound(TotName)+1];)

This will look at the name of the record.  If it is already in the list of names, then it will look in the list of names listed multiple times.  If it is in both, it ignores it.  If it is in neither, it adds it to the total list.  If it is in the total list, but not the multiple list, it adds it to the multiple list.  Once it adds a name to a list, it also increases the size of that list by 1 to account for the next record to come in.

In the Report Footer, your "Only Once" formula will look like:

WhileReadingRecords



Global StringVar Array TotName;

Global StringVar Array MultName;



Count(TotName) - Count(MultName);

Your "More than Once" formula will look like:

WhileReadingRecords



Global StringVar Array TotName;

Global StringVar Array MultName;



Count(MultName);

Does that make sense?

Yeah, you just create a formula field and put it in the section.  It doesn't return a value, so nothing will display.  Of course, you could just put it in a formatting formula somewhere, but that gets needlessly complicated and obscure.

nevermind, just found an article that says you have to state a "0;" at the end of a formula like that. Back I go! I'll report back soon :)

Sorry about the buggy code.  Glad you figured it out.

My thought would be to test the condition structure.  Have it return a different integer based on which condition got fulfilled.  Like so:

WhileReadingRecords;

Global StringVar Array TotName;
Global StringVar Array MultName;

IF {ai_vew_report_aiaba.full_name} in TotName THEN
    (IF Not({ai_vew_report_aiaba.full_name} in MultName) THEN
         (MultName[UBound(MultName)] = {ai_vew_report_aiaba.full_name};
          ReDim Preserve MultName[UBound(MultName)+1];
            2;)
    ELSE 3;)
ELSE
    (TotName[UBound(TotName)] = {ai_vew_report_aiaba.full_name};
    ReDim Preserve TotName[UBound(TotName)+1];
    1;);


This should return 1 if this is the first time the name has come up, 2 if it's the second, and 3 if it's the third or more.  Make it visible on the report, and run a sanity check on it.

If this formula looks like it's working properly, then check the array in the footer.  Add a bit that looks like:

Local StringVar ArrayPrint := "";
Local NumberVar i;
For i := 1 to UBound(TotName) Do
    ArrayPrint = ArrayPrint + ";" + TotName;
ArrayPrint;

And do it again for MultName.  See if you are getting the names populated in there.  If you, say, only have the last name in there, then the ReDim process may not be working properly.  If you have no names in there, try changing it to WhilePrintingRecords, to see if it is perhaps trying to process the information too early.