Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid giving me a headache
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Grid giving me a headache
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01379382
Message ID:
01379382
Views:
98
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.
Next
Reply
Map
View

Click here to load this message in the networking platform