Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Next record vs previous record
Message
De
21/04/2008 15:40:07
 
 
À
21/04/2008 15:25:14
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:
01312192
Vues:
12
thank you for reply,
Why not simply set the controlsource of the textbox to match the appropriate field? i will


Another thing is that your skip logic is very backwards. You should skip first, then check for EOF(). i see record number 2
************************
i need to know if this code can work or not,
when i run it i see only the first record...no skip

thanks


>Why not simply set the controlsource of the textbox to match the appropriate field?
>
>Another thing is that your skip logic is very backwards. You should skip first, then check for EOF().
>SKIP
>IF EOF()
>   =messagebox("trying to go past end of file - resetting to last record")
>   GO BOTT
>ENDIF
>...set textbox values
>
>
>
>>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