REPLACE!
For i = 1 To rst.RecordCount
With grdPesquisa
.Redraw = False
.CellDetails i, 1, Format((rst("FUND_CODINT")),"000.000#"), DT_RIGHT
.CellDetails i, 2, rst("FUND_CODPROD"), DT_RIGHT
.CellDetails i, 3, rst("FUND_DESCPROD"), DT_LEFT
.CellDetails i, 4, rst("FUND_MATERIAL"), DT_LEFT
rst.MoveNext
.Redraw = True
End With
Tchurminha, seguinte... eu coloquei pra quando for exibir no grid exibir no formato "000.000" mas no grid ao inves do ponto aparece virgula e eu preciso do ponto... alguem tem sugestao pra trocar a virgula por ponto??
replace da certo??
vlw
VAL(Format((rst("FUND_CODINT")),"000.000#"))
ou
cSTR(Format((rst("FUND_CODINT")),"000.000#"))
ou
cSTR(Format((rst("FUND_CODINT")),"000.000#"))
da sim...
tenta assim:
tenta assim:
.CellDetails i, 1, replace(Format((rst("FUND_CODINT")),"000.000#"),",","."), DT_RIGHT
Citação:TUMENI escreveu:
VAL(Format((rst([Ãâ€ÂÂ]FUND_CODINT[Ãâ€ÂÂ])),[Ãâ€ÂÂ]000.000#[Ãâ€ÂÂ]))
ou
cSTR(Format((rst([Ãâ€ÂÂ]FUND_CODINT[Ãâ€ÂÂ])),[Ãâ€ÂÂ]000.000#[Ãâ€ÂÂ]))
Cara, nao rolou... a virgula chata continua!
Citação:HUGOSSOUZA escreveu:
da sim...
tenta assim:.CellDetails i, 1, replace(Format((rst([Ãâ€ÂÂ]FUND_CODINT[Ãâ€ÂÂ])),[Ãâ€ÂÂ]000.000#[Ãâ€ÂÂ]),[Ãâ€ÂÂ],[Ãâ€ÂÂ],[Ãâ€ÂÂ].[Ãâ€ÂÂ]), DT_RIGHT
aeee, agora rolou!!
vlw coraçãooo
topico fechado!
Tópico encerrado , respostas não são mais permitidas