Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report Form to an XLS file
Message
De
13/09/2007 11:16:44
 
 
À
13/09/2007 11:06:27
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 8 SP1
Divers
Thread ID:
01254102
Message ID:
01254125
Vues:
17
>>>>OK CL, I've sent some snippets to your E.
>>>
>>>What does this do for you?
>>>
>>>
>>>	IF RECNO() => m.plateau
>>>		WAIT WINDOW LTRIM( STR( RECNO() * 100 / RECCOUNT(), 3 ) ) + '%' NOWAIT
>>>		m.plateau = MIN( m.plateau + m.interval, RECCOUNT() )
>>>	ENDIF
>>>
>>
>>How should I know? That's not my handwriting. Where did you get that?
>
>Directly out of the PRG you sent me.
>
>>Or is this a conundrum for me?
>
>If it is, then we are both in trouble.
>
>>Looks like it's some sort of monitor of the %age of some processing that has so far elapsed, over a threshold value (plateau?), as in how far threough the table it's got.
>
>That's what I thought, but since it was in your code...
>
>Did you send the correct PRG?
>
>UPDATE: Looks like my pathing picked up another program. Forget everything I've posted in the past 15 minutes...

It defo wasn't mine. My code would have been like:
?
lnNoRecs = RECCOUNT()
...
If RECNO() >= lnPlateau
    Wait WINDOW LTRIM( STR( RECNO() * 100 / lnNoRecs, 3 ) ) + '%' NOWAIT
    lnPlateau = MIN( lnPlateau + lnInterval, lnNoRecs )
EndIf
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform