Salve, pessoal.

Estou com um problema no uso o MsHFlexGrid. Estou usando o comando datasource para popular o grid. Ocorre que eu preciso formatar um campo e não consegui encontrar nenhum recurso pra usar neste caso.

Meu código tá assim:

Abre_base 'função que abre o bd 

Dim tbPedidos As New ADODB.Recordset

tbPedidos.Open "SELECT id_ped,data_ped,valor_ped, FROM Pedidos", dBase, adOpenForwardOnly, adLockReadOnly
     flexpedidos.DataSource = tbPedidos
tbHoras.Close

Tem alguma forma de passar um format já no select antes de "linká-lo" ao grid? ou em ultimo caso, fazer uma gambi q não comprometa o desempenho, formatando a coluna posteriormente?

 

Abraço, galera.

 

 

 

 

Salve, Tiranossauro.

Cara, em vários fórums já vi essa sintaxe que você passou. Mas não entendo pq não funciona no meu sistema. Segue a mensagem de erro: 'format' is not a recognized built-in function name.

Estou usando o SQLExpress 2005. Será que tem alguma coisa a ver?

Desde já agradeço.

Abraço

 

Com o Flex ou Hflex, a forma que achei melhor para trabalhar com formatos foi a seguinte:

 

Private Sub preenche_hflex_pagamento()

 If rs.RecordCount > 0 Then
        With HFlex_pagamento
            .Clear
            .Cols = 3
            .SelectionMode = flexSelectionByRow
            .ColWidth(0) = 600
            .ColWidth(1) = 1000
            .TextMatrix(0, 1) = "Data"
            .ColWidth(2) = 1100
            .ColAlignment(2) = 8
            .TextMatrix(0, 2) = "Valor Pago"
            .Rows = rs.RecordCount + 1
            rs.MoveMin
            For i = 1 To rs.RecordCount
                .TextMatrix(i, 1) = IIf(IsNull(rs(0)), "", Format(rs(0), "dd/mm/yyyy"))
                .TextMatrix(i, 2) = IIf(IsNull(rs(1)), "", Format(rs(1), "Currency"))
                rs.MoveNext
            Next i
        End With
    Else
        HFlex_pagamento.Clear
    End If

End Sub

Galera, valeu.

Estou usando uma variação do código do JOM.

Valeu mesmo, gente.

Abraço.

Lampião