This is the internal code I use for generating a printout of a calender.
for q = 1 to 12
mdate2 = bom(mdate)
mhead = 'Vacation Schedule for ' + CMONTH(mdate) + ' ' + STR(year(mdate))
DO WHILE .t.
IF DOW(mdate2) != 1
mdate2 = mdate2-1
ELSE
exit
endif
ENDDO
FOR i = 1 TO 42...
I have just written my own for scheduling vacations for a company using MSCAL Calender 7. For the most part it wroks really well. I can not put labels or anything on the calender itself directly but it does work well.
I do have one problem with it in that the dates and anything printed will...
Is it possible that the Index or cdx file may just be corrupt. I would delete the Index file, then recreate. Those other 12K records may appear. It would not take much to try this. A corrupt index could make it appear that there are no records, where once the index is removed, the records seem...
Anyone have any ideas, on a good way to print a calender in a Fox Report? Would liek to put data from a file in each block not a lot of data just a name type of thing.
Any ideas would be appreciated.
IF what you are saying is you need to update the Cursor and the Gird with the cirsor properties. Once you add the new recrod. Re-query and then be sure to
thisform.grid1.Column1.Sparse = .f.
thisform.grid1.RecordSource = ""
thisform.grid1.RecordSource = "acall" Or what ever you cursor name is...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.