FORMATOS NO MSHFLEXGRID

NEREU1301 14/08/2009 15:17:35
#319885

Jilney
demorei com o retorno, mas é o seguinte:
Quando adaptei o teu exemplo acima ao meu programa nao percebi de imediato, mas na realidade ficou certinho inclusive com todos os dados da tabela que eu queria.

entao cara
valleu
muiito obrigado
nereu

Ficou assim
Private Sub Preenche_GrdPecas()

rsSelecao.Open [Ô]Select * From Produtos[Ô], cnnCetecInfServiços, 1, 2

If rsSelecao.RecordCount > 0 Then
With GrdPecas
.Clear
.Cols = 4
.SelectionMode = flexSelectionByRow
.ColWidth(0) = 1100
.ColWidth(1) = 6000
.ColWidth(2) = 1100
.TextMatrix(0, 2) = [Ô]PrecoCompra[Ô]
.ColWidth(3) = 1100
.TextMatrix(0, 3) = [Ô]PrecoVenda[Ô]
.Rows = rsSelecao.RecordCount + 1
rsSelecao.MoveFirst
For i = 1 To rsSelecao.RecordCount
.TextMatrix(i, 0) = IIf(IsNull(rsSelecao!Referencia), [Ô][Ô], rsSelecao!Referencia)
.TextMatrix(i, 1) = IIf(IsNull(rsSelecao!Descricao), [Ô][Ô], rsSelecao!Descricao)
.TextMatrix(i, 2) = IIf(IsNull(rsSelecao!PrecoCompra), [Ô][Ô], Format(rsSelecao!PrecoCompra, [Ô]currency[Ô]))
.TextMatrix(i, 3) = IIf(IsNull(rsSelecao!PrecoVenda), [Ô][Ô], Format(rsSelecao!PrecoVenda, [Ô]currency[Ô]))
rsSelecao.MoveNext
Next i
End With
Else
GrdPecas.Clear
vinfo = MsgBox([Ô]Não houve Lançamentos no período informado[Ô], vbInformation + vbOKOnly, [Ô]Histórico de Lançamentos[Ô])
End If
rsSelecao.Close
End Sub

e chamo a sub no load do form
t+

TECLA 15/08/2009 11:01:13
#319926

Problema resolvido.
Favor encerrar o tópico.