Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Next record vs previous record
Message
De
21/04/2008 15:16:15
 
 
À
21/04/2008 13:03:20
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01312026
Message ID:
01312180
Vues:
19
thank you for reply

i need to display it at textboxes at myform record by record.

What doesn't work?
IF !EOF()&&&
skip && mean next record to end of file

thanks

>What have you done so far? What doesn't work?
>
>>hi all,
>>
>>any help to active this as command button next or prev.record
>>
>>SELECT;
>> TAlias1.time1,;
>> TAlias1.date1,;
>> TAlias1.roomno,;
>> TAlias1.place1,;
>> TAlias1.empno,;
>> TAlias2.mobile,;
>> TAlias2.tel,;
>> TAlias2.empname,;
>> TAlias1.discerror,;
>> TAlias1.sno;
>> FROM trans1 TAlias1, emp1 TAlias2 ;
>> WHERE  TAlias1.empno = TAlias2.empno;
>>     INTO CURSOR crsMyCursor READWRITE
>> SELECT crsMyCursor
>>
>> IF !EOF()&&&
>>   skip
>>
>>   THISFORM.TEXT3.Value=crsMyCursor.empname
>>   THISFORM.TEXT1.Value=crsMyCursor.SNO
>>   THISFORM.TEXT2.Value=crsMyCursor.EMPNO
>>   THISFORM.TEXT10.Value=crsMyCursor.discerror
>>   THISFORM.TEXT13.Value=crsMyCursor.time1
>>   THISFORM.TEXT12.Value=crsMyCursor.date1
>>   THISFORM.TEXT16.Value=crsMyCursor.roomno
>>   THISFORM.TEXT15.Value=crsMyCursor.place1
>>ELSE
>>   MESSAGEBOX("End Off File")
>>endif
>>
>>
>>thanks
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform