.recordsourcetype = 4 && SQL .recordsource = 'SELECT * from neil INTO CURSOR crsresult'+; ' where moc034 = thisform.combo1.DisplayValue' *Combo1.InteractiveChange with thisform.myGrid .recordsource=.recordsource endwithCetin
> >*Grid init > >SET DEFAULT TO 'C:\Foxpro Projects\Statistics\' > >SELECT * from neil INTO CURSOR crsresult > >WITH thisform.grid1 > .columncount = 13 > .recordsourcetype = 1 > .recordsource = 'crsresult' > .column1.controlsource = 'key1' > .column1.header1.caption = 'Season' > .column1.width=50 > .column1.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column2.controlsource = 'key2' > .column2.header1.caption = 'Dept' > .column2.width=50 > .column2.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column3.controlsource = 'key3' > .column3.header1.caption = 'Ref' > .column3.width=50 > .column3.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column4.controlsource = 'moc011' > .column4.header1.caption = 'Description' > .column4.width=300 > .column4.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column5.controlsource = 'moc019' > .column5.header1.caption = 'Size' > .column5.width=40 > .column5.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column6.controlsource = 'moc008' > .column6.header1.caption = 'Retail' > .column6.width=40 > .column6.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column7.controlsource = 'round(price2,2)' > .column7.header1.caption = 'Cost' > .column7.width=40 > .column7.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column8.controlsource = 'calcname' > .column8.header1.caption = 'Country' > .column8.width=90 > .column8.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column9.controlsource = 'round(cr1,2)' > .column9.header1.caption = 'Margin' > .column9.width=60 > .column9.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column10.controlsource = 'Descrip1' > .column10.header1.caption = 'Fabric' > .column10.width=80 > .column10.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column11.controlsource = 'aconstruct' > .column11.header1.caption = 'Type' > .column11.width=50 > .column11.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column12.controlsource = 'agauge' > .column12.header1.caption = 'Width' > .column12.width=40 > .column12.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" > .column13.controlsource = 'round(quantity,3)' > .column13.header1.caption = 'Rating' > .column13.width=40 > .column13.dynamicbackcolor="IIF(cr1>=-2.01,RGB(255,255,255),RGB(255,0,0))" >ENDWITH > >*Combo1 Interactive change > >SELECT crsresult >Set filter to thisform.combo1.DisplayValue=crsresult.moc034 > >thisform.grid1.Refresh >