>* for Calculate Ratios tab grid controlsource >Select Iif(inetpred ,"Analyzed",SPACE(9)) As Use_Run , run_date, run_number, sixtyfoot, ; > sixsixtyft, mph660ft, Quarter,quartermph, tstop2, density, caltitude, ; > temp, humidity, barometric, eightvar, ALLTRIM(STR(windspeed,2)) + "@" + ALLTRIM(STR(winddirect,3)) as Wind, ; > windspeed, winddirect, inetpred ; > FROM race ; > WHERE run_number >= 1 .and. run_number =< 3 ; > ORDER By run_date Desc, run_number Desc ; > INTO cursor csrChooseRunsGrid Readwrite nofilter > >>
> >Select Iif(inetpred ,"Analyzed",Space(9)) As Use_Run , run_date, run_number, sixtyfoot, ; > sixsixtyft, mph660ft, Quarter,quartermph, tstop2, density, caltitude, ; > temp, humidity, barometric, eightvar, Alltrim(Str(windspeed,2)) + "@" + Alltrim(Str(winddirect,3)) As Wind, ; > windspeed, winddirect, inetpred ; > FROM race ; > WHERE combonum = Thisform.currentcombonum ; > ORDER By run_date Desc, run_number Desc ; > INTO Cursor csrChooseRuns Readwrite nofilter > > > >If Used("csrChooseRunsGrid") > * continue >Else > * this is not good, no reason not to have this open > >Endif > >* select cursor grid is based on >Select csrChooseRunsGrid >ZAP > >* append from cursor we just created >Append From Dbf("csrChooseRuns") > >* BROWSE LAST NOCAPTION >* >* Rows EXIST Here > >* get rid of currently selected run >Delete For run_date = Thisform.current_run_date ; > .And. run_number = Thisform.current_run_number > > >This.grdCalculate_Ratios.Refresh >This.grdCalculate_Ratios.SetFocus > >* top record >Go Top In csrChooseRunsGrid > >* rows are correct, grid is not updated in EXE but are in development mode >>