JOAO PAULO PIRE
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 27/04/2010 18:03 hs
Alguem sabe como eu faço para mostrar em PORCENTAGEM em um label o grid sendo preenchido.
eu usa essa função para preencher o grid
GridGuias.Rows = 2
Cont = GridGuias.Rows - 1
Do While Not tb.EOF
GridGuias.TextMatrix(Cont, 0) = tb!DATA
GridGuias.TextMatrix(Cont, 1) = tb!Masp
GridGuias.TextMatrix(Cont, 2) = tb!Associado
GridGuias.TextMatrix(Cont, 3) = tb!Vinculo_Empregaticio
GridGuias.TextMatrix(Cont, 4) = tb!Prestador_do_Servico
GridGuias.TextMatrix(Cont, 5) = tb!Total
GridGuias.TextMatrix(Cont, 6) = tb!id
GridGuias.TextMatrix(Cont, 7) = tb!Selecionada
GridGuias.Rows = GridGuias.Rows + 1
Cont = Cont + 1
tb.MoveNext
Loop
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/04/2010 10:21 hs
GridGuias.Rows = 2
Cont = GridGuias.Rows - 1
me.show do Events
Do While Not tb.EOF
GridGuias.TextMatrix(Cont, 0) = tb!DATA
GridGuias.TextMatrix(Cont, 1) = tb!Masp
GridGuias.TextMatrix(Cont, 2) = tb!Associado
GridGuias.TextMatrix(Cont, 3) = tb!Vinculo_Empregaticio
GridGuias.TextMatrix(Cont, 4) = tb!Prestador_do_Servico
GridGuias.TextMatrix(Cont, 5) = tb!Total
GridGuias.TextMatrix(Cont, 6) = tb!id
GridGuias.TextMatrix(Cont, 7) = tb!Selecionada
GridGuias.Rows = GridGuias.Rows + 1
Cont = Cont + 1
tb.MoveNext lblPercent.caption = (cont / tb.recordCount) * 100 & "%"
Loop |
|
|
|
JOAO PAULO PIRE
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/04/2010 11:35 hs
J.Carlos, ja tentei fazer isso mais o problema é que nao aparece assim.
Ex.: 1%, 2%, 3% ...100%
Aparece 100% de uma vez na hora que termina de dar o Loop.
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/04/2010 12:14 hs
Do While Not tb.EOF
GridGuias.TextMatrix(Cont, 0) = tb!DATA
GridGuias.TextMatrix(Cont, 1) = tb!Masp
GridGuias.TextMatrix(Cont, 2) = tb!Associado
GridGuias.TextMatrix(Cont, 3) = tb!Vinculo_Empregaticio
GridGuias.TextMatrix(Cont, 4) = tb!Prestador_do_Servico
GridGuias.TextMatrix(Cont, 5) = tb!Total
GridGuias.TextMatrix(Cont, 6) = tb!id
GridGuias.TextMatrix(Cont, 7) = tb!Selecionada
GridGuias.Rows = GridGuias.Rows + 1
Cont = Cont + 1
lblPercent.caption = format$(cont, "##0") & " %" tb.MoveNext Loop vlu// |
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/04/2010 16:46 hs
Experimenta colocar os comandos abaixo dentro do loop |
|
|
|
JOAO PAULO PIRE
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/04/2010 01:48 hs
J.carlos
|
|
|
|
