*index on bintoc(nYear)+bintoc(nMonth) tag yrmon set key to bintoc(tnDesiredYear)+bintoc(tnDesiredMonth) with thisform.myGrid ldFday = date(tnDesiredYear,tnDesiredMonth,1) .Columncount = day(gomonth(ldFday,1)-1) for each oCol in .Columns ldDate = date(tnDesiredYear,tnDesiredMonth,; val(substr(justext(.controlsource),2))) ... endfor endwithCetin