La Vai + uma pessoal
É o seguinte, eu tenho em uma tabela ITEM e nela contem um campo que guarda o peso de um determinado item, eu estou fazendo uma select nesta tabela e trazendo o peso do item para mostrar em uma label, até ai blz, mas o item pesa 1.26 KG, mas ele me mostra na label 1.00 KG, não estou conseguindo pegar este valor quebrado .26 ele joga fora e fica só com 1.00, isto acontece em duas situações, quando o item pesa por exemplo 1.26 e quando o item pesa 0.048, em 1.26 ele tira os .26 e mostra 1.00 e quando é 0.048 ele mostra 48, como resolver isto?

qual o tipo de campo na tabela e como vc está tratando este valor em seu código??

Do jeito q vc está mostrando parece q está truncando o valor... exemplo:

 

msgbox int("1,26") ' vai ser igual a 1

label1=format(tabela("peso"),"###0/,000")

se não funcionar, verivique como estão armazenados os valores na sua tabela "peso"

este é o meu código:

Set RsConFatConvLogix = ConInformix.Execute("Select fator_conv from fat_conv_unidade where cod_item = '" & msk_cod_item.Text & "'")
Dim FatorConv As Integer
Dim Conv As Integer

FatorConv = RsConFatConvLogix(0)
Conv = Val(txt_qtde.Text) * Val(FatorConv)

Set RsConPesoTbItem = ConInformix.Execute("Select pes_unit from item where cod_item = '" & msk_cod_item.Text & "'")
Dim PesoLogix As Integer
Dim PesoTotal As Integer

 

PesoLogix = Val(RsConPesoTbItem(0))
PesoTotal = Val(Conv) * PesoLogix

lbl_pacotes.Caption = Conv
lbl_peso_pacote.Caption = PesoLogix
lbl_peso_tot.Caption = PesoTotal

 

tentei isto tb e não funcionou

lbl_peso_pacote.Caption = Format$(PesoLogix, "###.#####")

lbl_peso_tot.Caption = Format$(Val(lbl_peso_pacote.Caption) * Val(Conv), "###.#####")

o tipo de campo na tabela é:
DECIMAL (12,5)

OBS: BANCO INFORMIX

Vc esta setando o FatroConv como integer e depois passando o resultado do select pra esta variavel. Mude para double ou variant,....

continuando o q o Sandro disse ...na realidade vc está setando tudo com integer..tem q setar como single ou double ou ainda variant

Dim PesoLogix As single

Dim PesoTotal As single

 

Como  vc quer q tenham casas decimais em um Inteiro?