Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Next record vs previous record
Message
From
21/04/2008 15:16:15
 
 
To
21/04/2008 13:03:20
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01312026
Message ID:
01312180
Views:
17
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform