thisform.Grid1.RecordSource = NULL cPeriod = LEFT(DTOS(thisform.text2.value),6) SELECT * FROM TABLE1 WHERE mac1=thisform.text1.value .AND. LEFT(DTOS(Table1.Dat),6) == m.cPeriod ORDER BY DTOS(Table1.Dat) INTO CURSOR grdCursor READWRITE mntLastDay = (GOMONTH(thisform.text2.value, 1) - thisform.text2.value) SELECT grdCursor GO BOTTOM FOR nDay = DAY(grdCursor.Dat)+1 TO mntLastDay INSERT INTO grdCursor (Dat) VALUES (DATE(YEAR(thisform.text2.value),MONTH(thisform.text2.value),nDay) NEXT thisform.Grid1.RecordSource = "grdCursor" thisform.Grid1.Refresh()>hi,
>>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() >>