Oppure

Loading
16/11/08 14:57
GrG
Da così non te lo saprei dire...se tu mi postassi il proggetto oppure un progetto di esempio dove accade lo stesso errore te lo potrei correggere...Per il momento ti posso solo dire di controllare se è proprio la colonna 8 quella con i numeri da sistemare...io ho visto nella BMP col7 e col8 ma a tutte e 2 devi applicare la funzione format?

EDIT:
Guardando bene la BMP mi sono accorto che la funzione format ha fatto il suo dovere...infatti se tu noti dopo la virgola ci sono due cifre (indicato con "0.00";)...allora dici ke nn ti funziona perchè non fa quello ke vuoi tu, ma cosa vuoi fare? (ankora nn ti ho capito bene...:S)
Ultima modifica effettuata da GrG 16/11/08 15:01
aaa
16/11/08 16:49
XXXXXX
HO risolto il problema in questo modo:

Dim MyValore As Variant
For i = 1 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.col = 7
MSHFlexGrid1.CellBackColor = vbYellow
MyValore = Val(MSHFlexGrid1.text)
MSHFlexGrid1.text = Format$(MyValore, "0.00";)

MSHFlexGrid1.col = 8
MSHFlexGrid1.CellBackColor = vbWhite
MyValore = Val(MSHFlexGrid1.text)
MSHFlexGrid1.text = Format$(MyValore, "0.00";)

MSHFlexGrid1.col = 9
MSHFlexGrid1.CellBackColor = vbYellow
MyValore = Val(MSHFlexGrid1.text)
MSHFlexGrid1.text = Format$(MyValore, "0.00";)
Next i

sembra funzionare bene.
Ti rigrazio moltissimo senza il tuo aiuto non ci sarei riuscito..... ciao
:k::k:
aaa
16/11/08 19:01
GrG
Di niente :)
aaa
16/11/08 19:21
tippolo
Ciao,
io non riesco a capire quello che non andava nell'ultima BMP che hai postato.

Come giustamente ti faceva notare Gregorio, guardando l'immagine la funzione Format il suo lavoro lo faceva

EDIT:
Scusa nell'immagine non avevo notato il punto che era separatore delle cifre decimali. Credevo fosse un numero intero. Sorry

Ciao
Ultima modifica effettuata da tippolo 16/11/08 19:28
aaa