Information générale
Catégorie:
Codage, syntaxe et commandes
Remco,
Found this in the knowledgebase.
Thanks,
Dan
thisform.oleProgressbar.Maxvalue = reccount() && or whatever you want
select *, updatevalue()
from table;
where condition;
into cursor tmp
with thisform.oleProgressBar
.Value = .MaxValue
endwith
function updatevalue
with thisform.oleProgressBar
.Value = _tally
if .Value >=.MaxValue
.MaxValue = .Value*2
endif
endwith
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement