Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid giving me a headache
Message
From
05/02/2009 15:22:38
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01379382
Message ID:
01379617
Views:
27
>I have worked with grids for years and have a fairly good understanding of them, or so I thought.
>
>I have a grid that has a controlsource of a cursor. I update the cursor using a safe select. It all works great in development mode, however in the EXE it shows all the columns, perfectly formatted, colors are correct but there is no data rows. I know what a grid looks like when you rip a controlsource out from underneath a grid and it is not blank.
>
>In the LOAD EVENT I have this code to setup the controlsource for the grid.
>
>
>* 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
>
>
>
>In 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 mode
>
>
>
>I 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.
>
>
>* have posted some screen images to view, even though the resolution is not as good as I would like.

Just to make sure, with a grid you're talking about RecordSource, not ControlSource, right?

Assuming the RecordSource of grdCalculate_Ratios is csrChooseRunsGrid, is there a particular reason you're refreshing the grid before moving the cursor record pointer, rather than afterwards?
Regards. Al

"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov

Neither a despot, nor a doormat, be

Every app wants to be a database app when it grows up
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform