VB 6 e somma

**marciadona** · 25-03-2005, 11:00

Ho una colonna datagrid con dei prezzi ... vorrei sommare tutta la comonna e mettere il risultao in un textBox
Ci sono riuscita facendo così....

codice:

Dim tot
tot = "0"
Rs.MoveFirst
Do Until Rs.EOF
tot = tot + Val(DataGrid1.Columns(2))
cred.Text = tot
Rs.MoveNext
Loop

Mi restituisce la somma un numero intero
es. 12,48 + 20 = 32

In sostituzione di Val cosa dovrei usare?????

Grazie a tutti

**marciadona** · 25-03-2005, 11:03

oppure se conoscete un metodo diverso ... grazie

**xegallo** · 25-03-2005, 11:10

prova a dichiarare tot

dim tot as single

**marciadona** · 25-03-2005, 11:16

niente ... lo stesso risultato

**Alessandro2110** · 25-03-2005, 13:20

prova ad inserire cdbl in sostituzione di val

**marciadona** · 25-03-2005, 13:27

ok funziona
grazie

**XVincentX** · 25-03-2005, 14:24

per fare un bel lavoro invece, fai cosi

codice:

tot = tot + Ccur(DataGrid1.Columns(2))
tot = formatcurrency(tot,2)

Quindi metti l'uguaglianza con la textbox
Il risultato sarà eccellente

Discussione: VB 6 e somma