Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Grid giving me a headache
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Grid giving me a headache
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01379382
Message ID:
01379382
Vues:
99
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.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform