Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Select
Message
De
27/05/2005 13:32:34
 
 
À
27/05/2005 08:04:45
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Re: Select
Versions des environnements
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Divers
Thread ID:
01017388
Message ID:
01018215
Vues:
30
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform