Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid giving me a headache
Message
From
05/02/2009 02:23:53
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01379382
Message ID:
01379392
Views:
32
Sounds like you have a table with the same name "baked into" the EXE. Check "other files" in project manager.

>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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform