>thisform.Grid1.RecordSource = NULL >SELECT * FROM TABLE1 WHERE mac1=thisform.text1.value .AND. Table1.nMonth == 1 ORDER BY Table1.nDay INTO CURSOR grdCursor READWRITE >mntLastDay = DATE(grdCursor.nYear, grdCursor.nMonth, 1) >mntLastDay = (GOMONTH(mntLastDay,1) - mntLastDay) >SELECT grdCursor >FOR nDay = grdCursor.nDay+1 TO mntLastDay > INSERT INTO grdCursor (nDay) VALUES (nDay) >NEXT >thisform.Grid1.RecordSource = "grdCursor" >thisform.Grid1.Refresh() >