USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Calculo no Flex
Irenko
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 02/04/2009 10:01 hs            
Tenho um Flex grid onde na coluna 03 carrego os valores. Em um TextBox tenho o valor total ex.: 15000,00.

Na coluna 04 tenho que carregar o percentual para cada valor da coluna 03, ou seja, o valor da linha da col 03 dividido pelo valor do TextBox. Estou fazendo assim:

Dim X As Integer
Dim total As Double
total = Text1
For X = 1 To Grid.Rows - 1
       If Grid.TextMatrix(X, 4) = "" Then
       Grid.TextMatrix(X, 4) = Grid.TextMatrix(X, 3) / total
       End If
    Next

só q no meu calculo esta apresentando um valor muito doido, ex.:
1,76367753022812E-04

Onde estou errando e como faço essa rotina funcionar corretamente?
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 02/04/2009 10:08 hs            
Dá um debug e verifica o valor q está aparecendo para as celulas do grid
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 02/04/2009 10:08 hs            
Dá um debug e verifica o valor q está aparecendo para as celulas do grid
   
João Carlos jr.
RIBEIRÃO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 02/04/2009 11:20 hs            
Declare a variável X com double também, o erro pode estar aí em fazer contas matemáticas com variáveis diferentes.
 
Espero ter ajudado.
 
Flw.

João Carlos Junior

Administrador de Redes - Windows 2003 Srv, Linux

    Desenvolvedor Visual Basic 6.0 com Access, SQL Server, VB .Net e Crystal Reports X

Iniciante em C# e ASP .NET

   
Irenko
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 02/04/2009 11:51 hs            
Não deu nada! Alguem tem mais uma sugestão? Eu travei nesse ponto.
   
DeFreitas
SÃO PAULO
SP - BRASIL
Postada em 02/04/2009 13:27 hs            
Boa tarde.Amigo,Tente o seguinte:Dim X As IntegerDim total As Doubletotal = CDbl(Text1)For X = 1 To Grid.Rows - 1               If Grid.TextMatrix(X, 4) = "" Then                                Grid.TextMatrix(X, 4) = Format(CDbl(Grid.TextMatrix(X, 3)) / total, "#.00")               End IfNext
TÓPICO EDITADO
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página