Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid changes record pointer
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01409326
Message ID:
01409376
Views:
59
I have code to capture the record number in the BeforeRowColChange to a form property. In 9 of 12 column headers have code to set the order of the data to that field. At the end of the header code it goes to the record variable if it is not equal to the recno. Can anyone tell me why the record pointer jumps around?

Here is the code I use to sort the grid when the user clicks on the header and it works flawlessly. It is called from the header's click() method:
IF NOT EMPTY( This.cSortField  )
  *** There seems to be a refresh issue here
  *** because even though the data is in the cursor
  *** it is not showing up in the grid after the sort
  *** and it looks like it is related to AllowCellSelection being .F.
  This.AllowCellSelection = .F.
  This.Refresh()
  KEYBOARD '{CTRL+TAB}'
  
  lnRecNo = RECNO( This.RecordSource )
  *** Go ahead and set the order for the table
  SELECT ( This.RecordSource )
  IF NOT EMPTY( This.cSortOrder )
    SET ORDER TO ( This.cSortField ) DESCENDING 
  ELSE
    SET ORDER TO ( This.cSortField ) 
  ENDIF
  This.SetFocus()
  IF lnRecNo # 0
    GO lnRecNo IN ( This.RecordSource )
  ENDIF
ENDIF
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform