Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: John Zylstra
  Where is John Zylstra?
 De Cocksdorp
 Netherlands
 John Zylstra
 To: Paul Brown
  
 York
 
 Paul Brown
 Tags
Subject: RE: Grid - pack
Thread ID: 648 Message ID: 665 # Views: 1 # Ratings: 0
Version: Unknown Category: General VFP Topics
Date: Saturday, June 09, 2001 1:01:20 AM         
   


Hi
A better way is also to store the columns,because after PACK the columns are mostly not on the right place

THISFORM.LOCKSCREEN=.T.
LOCAL ncurrecno,ncolcount
ncurrecno=RECNO()
ncolcount=THISFORM.grid1.COLUMNCOUNT
DECL arr[ncolcount]

FOR N=1 TO ncolcount
arr[n]=THISFORM.grid1.COLUMNS(N).CONTROLSOURCE
ENDFOR
THISFORM.grid1.RECORDSOURCE=''

PACK

THISFORM.grid1.RECORDSOURCE='alfa'
FOR N=1 TO ncolcount
THISFORM.grid1.COLUMNS(N).CONTROLSOURCE=arr[n]
ENDFOR

GOTO ncurrecno
THISFORM.grid1.SETFOCUS()
THISFORM.LOCKSCREEN=.F.

John Zylstra

ENTIRE THREAD

Grid - pack Posted by Pavel Pipiska @ 6/8/2001 8:20:53 AM
RE: Grid - pack Posted by Paul Brown @ 6/8/2001 8:31:05 AM
RE: Grid - pack Posted by John Zylstra @ 6/9/2001 1:01:20 AM