Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Jan 2010
    Messaggi
    165

    [vb6] Mshflexgrid: Campo Data In Formato Europeo

    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 è:

    codice:
     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

  2. #2
    Utente di HTML.it L'avatar di StegcO
    Registrato dal
    Aug 2008
    Messaggi
    371
    codice:
    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.
    /

  3. #3
    Utente di HTML.it
    Registrato dal
    Jan 2010
    Messaggi
    165
    Grazie milleeeeeeeeeeeeeeee

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


    Grazie ancora

    ciao ciao

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.