[vb6] Mshflexgrid: Campo Data In Formato Europeo

[gioviskius]

Ciao a tutti ,

Vi ringrazio gia per l aiuto che mi darete:

Problema:

Nella mia Mshflexgrid, vorrei che, al momento in cui scrive la colonna della data, (nel mio caso, sql server 2005 (english version), la scrive nel formato americano, ovvero 2005-10-10 00:00:00, vorrei dirgli di formattarla cosi (10/10/2005)

La mia routine dove setto le colonne della mshflexgrid è:

 Dim InnerLoopCount As Long, x As Long
    Dim OuterLoopCount As Long
    Dim lngLongestLen As Long
    Dim sLongestString As String
    Dim lngColWidth As Long
    Dim szCellText As String

    With grd

        For OuterLoopCount = 0 To .Cols - 1
            sLongestString = ""
            lngLongestLen = 0


            For InnerLoopCount = 0 To .Rows - 1
                szCellText = .TextMatrix(InnerLoopCount, OuterLoopCount)
    ***********SZCELLTEXT, è la variabile in cui carica i dati da visualizzare, ed è qui che dovrei mettere una condizione, quando il campo è data scrivilo cosi.***********

                If Len(szCellText) > lngLongestLen Then
                    lngLongestLen = Len(szCellText)
                    sLongestString = szCellText
                End If
            Next
            lngColWidth = .Parent.TextWidth(sLongestString)
            'add 100 for more readable spreadsheet
            .ColWidth(OuterLoopCount) = lngColWidth + 200
        Next
End With

Il mio PROBLEMA è che non so come dirgli e vb6 di formattarla nel formato europeo quando il campo che visualizza è data.

Dovrei fare

If ********......



Grazie a tutti in anticipo

[StegcO]

MiaMSHFlexGrid.TextMatrix(Riga, 1) = Format(Rs.Fields("MioCampoData").Value, "dd/mm/yyyy")

dove "Riga" è una variabile contente la riga corrente e "1" (in questo esempio) è la cella della griglia, partendo da zero come al solito.

[gioviskius]

Grazie milleeeeeeeeeeeeeeee

Però ho fatto in un altro modo perche in quel modo mi diceva "Tipo non corrispondente"


Grazie ancora

ciao ciao