Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Select
Message
From
27/05/2005 13:32:34
 
 
To
27/05/2005 08:04:45
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Re: Select
Environment versions
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01017388
Message ID:
01018215
Views:
24
>>i try to keep the curssore at one place at mygrid if found
>>i try as
>>thisfrom.grid1.column1.text.setfocus && with mouse click i can move to any column,

I normally save and restore the record pointer during this type of operation.
SELECT Temp

lnRec = RECNO()

lcTyp  = alltrim(upper(thisform.grid2.column1.text1.value))
lcMac1 = alltrim(upper(thisform.grid2.column2.text1.value))
select * from temp;
  where alltrim(upper(temp.typ)) == lcTyp and alltrim(upper(temp.mac1)) == lcMac1;
  into array laResults

SELECT Temp

if _tally = 0
  append blank in temp
  replace temp.typ with alltrim(upper(thisformM.text3.value))
  go top
  thisform.grid1.refresh
else
  =mesagebox("found.....")
endif

GO lnRec  && This goes here or in the if statement
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform