[VB6]: Formattare i valori di tipo "valuta" riportati in un DataGrid

[SkOrPiOn`87]

Ciao,

Ho una datagrid che ha una colonna che contiene i record di un database access, contenente i valori VALUTA, volevo formattare anche questa colonna del database con il valore VALUTA, cosa che sono riuscito ad imposare nel datareport, ma che purtroppo non riesco ad ottenere con il datagrid...


Qualcuno sa darmi una mano?


Grazie

[alka]

Scusa la domanda, ma il linguaggio lo specifichi nel titolo? :master:

[SkOrPiOn`87]

azz, scusami è il VB6, ero sicuro di averlo messo...

Ho scritto il post quando ormai il cervello era già fuso

[alka]

Originariamente inviato da SkOrPiOn`87
azz, scusami è il VB6, ero sicuro di averlo messo...

Corretto linguaggio e descrizione del problema. Ciao!

[SkOrPiOn`87]

Ieri ho trovato questo codice...

 'imposto la fonte dati
    Set DataGrid1.DataSource = Recdati
    'personalizzo le colonne
    DataGrid1.Columns(0).Width = 0
    DataGrid1.Columns(1).Width = 1400
    DataGrid1.Columns(2).Width = 1400
    DataGrid1.Columns(3).Width = 1400
    'oggetto per la gestione del formato
    Dim objFormat As StdDataFormat
    Set objFormat = New StdDataFormat
    objFormat.Type = fmtBoolean
    objFormat.TrueValue = "Si"
    objFormat.FalseValue = "No"
    objFormat.NullValue = "No"
    'imposto il formato
    Set DataGrid1.Columns(3).DataFormat = objFormat

Però come si può notare funziona per i valori booleani, per i tipi valuta non so che valore dare ad objFormat.Type

[SkOrPiOn`87]

With operazioni
With .Columns(5)
With .DataFormat

.Type = 1
.Format = """€"" #.##0,00;(""€"" #.##0,00)"
.FirstDayOfWeek = 0
.FirstWeekOfYear = 0

Ho provato ad inserire questo nel codice a run-time, ma non è cambiato niente, anche se non ha dao nessun errore...