ciao avrei un probblemino.praticamente o un form in cui ce un datagrid con dei dati inseriti e un text nominato txttotalemese sempre nel stesso form, vorrei fare se possibile riportare la somma di tutte le righe del datagrid sul txtotalemese, in modo che ogni volta che inserisco un nuova cifra va ad aumentare il txttotalemese.vi posto il codice.
Sub totali()
txttotalemese.Text = 0
If ado_acquistomaterialeangolodelcolore.Recordset.RecordCount = 0 Then
Else
ado_acquistomaterialeangolodelcolore.Recordset.MoveFirst
While ado_acquistomaterialeangolodelcolore.Recordset.EOF = False
If Not IsNull(ado_acquistomaterialeangolodelcolore.Recordset.Fields(6)) Then
txttotalemese.Text = Val(txttotalemese.Text) = Val(txttotalemese.Text) + Val(ado_acquistomaterialeangolodelcolore.Recordset.Fields(6))
End If
ado_acquistomaterialeangolodelcolore.Recordset.MoveNext
Wend
End If
End Sub
|