remark &&& dvno numaric type,peri character type,dat character type &&&VIA calander.olecontrol1 &&&thisform.text5.value= CMONTH(This.object.value)+' '+Str(year(This.object.value))code
set exac on set near off use TABLE1 in 0 thisform.text1.value= THISFORM.combo1.vALUE thisform.text2.value=divi.no *************** i try as SELECT * FROM table1 WHERE dvno==THISFORM.TEXT2.VALUE AND PERI==THISFORM.COMBO2.VALUE AND table1.dat==thisform.text5.value INTO ARRAY laResults and as SELECT * FROM table1 WHERE dvno==THISFORM.TEXT2.VALUE AND PERI=THISFORM.COMBO2.VALUE AND table1.dat=thisform.text5.value INTO ARRAY laResults **************** IF _TALLY > 0 THISFORM.GRID1.Visible= .T. GO TOP thisform.grid1.refresh ******************************* select 3 LOCATE FOR temp.mac1=alltrim(thisform.text1.value ) thisform.text2.value=divi.no thisform.grid2.visible=.t. thisform.Grid2.RecordSource=SPACE(0) select nam,macwork1 from mac1; where dvno = thisform.text2.Value ; into cursor crsMyCursor thisform.Grid2.RecordSource="crsMyCursor" RETURN ************************************* ELSE =MESSAGEBOX("NOT found.....") thisform.COMMAND1.visible=.f. thisform.grid2.visible=.F. thisform.grid1.refresh endifthanks