Filling page with even numbered records

[foxrainer]

Hi all,

I am writing a little program for nurses which allow patient medications to be printed on a sheet of paper. The report, will allow 3 medications per page, each with a grid of 31 days by 4 time periods:
------------------------------
Medication |am | | |
info |noon | | |
fields |pm | | |
here |night| | | etc, etc

Here is the problem: If the patient is only on one or medications, there will be a blank space (also, obviously, if the patient is on 4 or 5, or 7 ot 8 medications etc)

What I need is to fill the page with 3 grids, regardless.

I thought the only way to do that would be to make a query which will add blank medication records if the number is not devisable by 3, but can't come up with a good scheme.

Any advice?

 

[DSummZZZ]

How about something like this.
After gathering up the meds, check the RECCOUNT() and append until there are enough:

SELECT * FROM test3 INTO CURSOR rptmeds READWRITE
SELECT rptmeds 
DO WHILE (RECCOUNT('rptmeds') % 3) # 0
   APPEND BLANK
ENDDO
BROWSE

You could always use a temp table if you have a version of VFP that doesn't support the READWRITE clause for a cursor.


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm