Fórum Valor Monetário em DBGrid #245242
02/08/2004
0
Gostaria de saber como visulizar em DBGrid esse valor com R$ e as casas decimais.
Exemplo:
Valor armazenado => 179,334521
Valor que quero visualizar = > R$ 179,33
Valeu a força!!!
JR.
Jrjoliv2003
Curtir tópico
+ 0Posts
02/08/2004
G1b4
Vá no seu dataset e entre no fields editor, selecione o campo que você quer o valor monetário e na propriedade currency coloque TRUE.
Espero ter ajudado :D !!!
Gostei + 0
02/08/2004
Jrjoliv2003
JR.
Gostei + 0
05/08/2004
Jrjoliv2003
2) No FildsEditor da Table, selecionei o campo e na propriedade Displayformat, coloquei #,,0.00, e na propriedade Editformat, coloquei 0.00;
Coloquei essa formatação em minhas tabelas e apareceu na DBgrid. Sem querer exclui a DBGrid. Coloquei outra e agora não aparece o R$ com as casas decimais na DBgrid.
O que será que aconteceu?
Valeu a força!!!
Galera!! Sou novato, por isso pergunto tanto. É meu Projeto Final de Curso que está faltando algumas coisas. Desculpe.
JR.
Gostei + 0
06/08/2004
Deryck
jordano.soares@csnet.com.br
Gostei + 0
10/08/2004
Jrjoliv2003
Estou tentando colocar o símbolo monetário e as casas decimais. Usei essa formatação
no campo da tabela (ibtable):
No FildsEditor da Table, selecione o campo e na propriedade Displayformat, coloque R$ #,,0.00,
e na propriedade Editformat, coloque R$ 0.00;
Nos dbedit aparecem só que no dbgrid não. Uso delphi5 com Interbase 6 (dialect 1).
O campo está com tipo de dado numeric (15,2).
Se aparece no dbedit deveria aparecer na dbgrid também certo?
Quem puder ajudar...
Valeu a força!!
Obs: já ativei a propriedade currency para True e nada muda.
JR.
Gostei + 0
11/08/2004
Jrjoliv2003
If odd(data.IBTPag.RecNo) then
begin
DBGrid3.Canvas.Font.Color:= clBlack;
DBGrid3.Canvas.Brush.Color:= clInactiveCaptionText;
end
else
begin
DBGrid3.Canvas.Font.Color:= clBlack;
DBGrid3.Canvas.Brush.Color:= clWhite;
end;
DBGrid3.Canvas.FillRect(Rect);
DBGrid3.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Valeu a força!!
JR.
Gostei + 0
12/08/2004
Jrjoliv2003
Resolvi com a ajuda de um colega. Troquei essa linha:
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Por essa:
DBGrid3.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.DisplayText);
Essa linha está no final da codificação na colocação do DBGrid Zebrado.
Valeu!!!
JR.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)