Code: Select all
...
SCRIVI_PREZZO Me.MSFlexGrid1
...
Private Sub SCRIVI_PREZZO(PFLEX As MSFlexGrid)
Dim C As Integer
C = 1
With PFLEX
.Redraw = False
For K = LBound(STRPREZZO) To UBound(STRPREZZO)
.TextMatrix(C, 52) = Format$(Split(STRPREZZO(K), "|")(1), "#,##0.00")
C = C + 1
Next K
.Redraw = True
End With
End Sub