DATABINDINGS

GUIMORAES 21/09/2011 09:17:57
#384816
Olá Pessoal.
Bom dia!

Bom tenho uma dúvida, recentemente estou utilizando um datarepeater, para mostrar os produtos vendidos no meu Frente de Caixa, e estou usando o DataBindings para popular os campos informados.

Só que tem um problema, não consigo formatar os dados para formato moeda, ou qualquer outro formato.
Estou utilizando a sentença abaixo para popular os campos.

[ô]---------------------------------------------------------------------

Dim DT As DataTable

Try

FbConecta()
DT = BD.retTabela([Ô]SELECT ITEM, CODIGO, DESCRICAO, QTD, UND, PRECO, DESCONTO, ACRESCIMO, TOTAL FROM ITEVENDAS_CUPOM_TEMP ORDER BY ITEM[Ô])

LBL_ITEM.DataBindings.Add([Ô]Text[Ô], DT, [Ô]ITEM[Ô]).ToString()
LBL_CODIGO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]CODIGO[Ô]).ToString()
LBL_DESCRICAO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]DESCRICAO[Ô]).ToString()
LBL_QUANT.DataBindings.Add([Ô]Text[Ô], DT, [Ô]QTD[Ô]).ToString()
LBL_UND.DataBindings.Add([Ô]Text[Ô], DT, [Ô]UND[Ô]).ToString()
LBL_PRECO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]PRECO[Ô]).ToString()
LBL_DESCONTO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]DESCONTO[Ô]).ToString()
LBL_ACRESCIMO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]ACRESCIMO[Ô]).ToString()
LBL_TOTAL.DataBindings.Add([Ô]Text[Ô], DT, [Ô]TOTAL[Ô])


DataRepeater1.DataSource = DT

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try

FbDESConecta()

[ô]----------------------------------------------------------------------------------------------

bom o que eu gostaria de fazer é formatar os campos, como o LBL_TOTAL.DataBindings.Add([Ô]Text[Ô], DT, [Ô]TOTAL[Ô]) para formato moeda ou numeric.

ja tentei o seguinte, mas sem sucesso.

LBL_TOTAL.DataBindings.Add([Ô]Text[Ô], DT, [Ô]TOTAL[Ô], True)
LBL_TOTAL.DataBindings(0).FormatString = [Ô]c[Ô]

Alguem sabe de mais alguma solução?

Agradeço a todos.
Abraços.
ALTAIR148 21/09/2011 09:20:52
#384818
Bom dia,

Tenta assim

Textbox1.text = formatcurrency(textbox1.text)

Até mais.
GUIMORAES 21/09/2011 09:49:35
#384825
Bom dia Altair.
Tentei o que tu disse, mas sem resultados, me parece que quando ele recebe os dados, o mesmo não está aceitando a formatação.

tambem tentei usar um dataset tipado, formatei um campo criado la, mas sem sucesso, o [Ô]Maldito[Ô] databindings não formata.

Valeu pela ajuda

Abraços.
ALTAIR148 21/09/2011 09:50:27
#384826 Resposta escolhida
Dá algum erro?
ALTAIR148 21/09/2011 09:54:36
#384827
Como que você fez no exemplo que lhe pasei?
GUIMORAES 21/09/2011 10:12:13
#384829
Bom vou explicar como fiz.

[ô]---------------------------------------------------------------------

Dim DT As DataTable

Try

FbConecta()
DT = BD.retTabela([Ô]SELECT ITEM, CODIGO, DESCRICAO, QTD, UND, PRECO, DESCONTO, ACRESCIMO, TOTAL FROM ITEVENDAS_CUPOM_TEMP ORDER BY ITEM[Ô])

LBL_ITEM.DataBindings.Add([Ô]Text[Ô], DT, [Ô]ITEM[Ô]).ToString()
LBL_CODIGO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]CODIGO[Ô]).ToString()
LBL_DESCRICAO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]DESCRICAO[Ô]).ToString()
LBL_QUANT.DataBindings.Add([Ô]Text[Ô], DT, [Ô]QTD[Ô]).ToString()
LBL_UND.DataBindings.Add([Ô]Text[Ô], DT, [Ô]UND[Ô]).ToString()
LBL_PRECO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]PRECO[Ô]).ToString()
LBL_DESCONTO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]DESCONTO[Ô]).ToString()
LBL_ACRESCIMO.DataBindings.Add([Ô]Text[Ô], DT, [Ô]ACRESCIMO[Ô]).ToString()
LBL_TOTAL.DataBindings.Add([Ô]Text[Ô], DT, [Ô]TOTAL[Ô])

LBL_TOTAL.text = formatcurrency(LBL_TOTAL.text)


DataRepeater1.DataSource = DT

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try

FbDESConecta()

[ô]----------------------------------------------------------------------------------------------

Fiz Assim.
ALTAIR148 21/09/2011 10:14:39
#384830
Mas ocorre algum erro?
GUIMORAES 21/09/2011 10:38:57
#384838
Não, simplesmente não formata.
sem erros.
ALTAIR148 21/09/2011 10:41:00
#384840
Faz o seguinte, coloca um botão ai e coloca nele o comando

LBL_TOTAL.text = formatcurrency(LBL_TOTAL.text)


Depois que carregar o campo vc clica nesse botão e veja se ele vai formata-lo.

até mais.
GUIMORAES 21/09/2011 13:21:42
#384863
Então Altair.
Não deu certo tambem.
Debuguei o codigo, e quando ele entra na formatação, ele pega o valor que está no campo text, no caso, este texto esta como Label10.
Percebe-se que eu teria que pegar o valor que está no databindings, para que seje formatado.

Obrigado.
ALTAIR148 21/09/2011 13:23:52
#384864
Não entendi o [Ô]LABEL10[Ô], esse é o nome do label que esta recebendo o valor?
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar