* 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 nofilterIn the Activate of this pageframe I issue these commands:
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 modeI have quite a few grids built the exact same way that are working fine. I have verified the cursors exist and have info in them.