Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Paging Page Somenumber
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00116970
Message ID:
00116990
Vues:
15
Michelle,

Unless you are using a custom Page subclass you can't have a RecordNo property for each page. But that would be easy to add if you did this in a .prg
* pagMichelle.prg
define pagMichelle as Page
   RecordNo = 0
enddefine

But to build the pageframe you can't just set the PageCount, you need to
AddObject each page:

* pageframe.Init
set procedure to pagMichelle additive
for i = 1 to 10
   lcStr = "Page" + padl( i, '0', 2 )
   this.AddObject( lcStr, "pagMichelle" )
   with this.Pages[i]
      .Caption = trips.cName
      .RecordNo = recno()
   endwith
   skip 1
endfor
>Hmmm... That's kind of the reverse of what I need. I don't want to go through the pages and assign them to records; I want to go through the records and assign them to pages.
>
>Like this:
>
>scan for trips.igroup = thisform.group
> with tsForm1.tsPageFrame1.page[i]
> .caption = trips.cname
> .RecordNo = recno()
> endwith
>endscan
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform