Calcolare totali in visual studio 2008

lunedì 09 marzo 2009 - 21.53

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Mau67 Profilo | Expert

917 messaggi | Data Invio: lun 9 mar 2009 - 21:53

Salve a tutti, finora ho fatto calcolare i totali delle colonne sia nelle listview che nei datagridview e i risultati inseriti in rispettive textbox.
Adesso ho la necessità di calcolare i totali dei dati inseriti in una listview1 e filtrati da una listview2 da un campo data.

Esempio: (dati ListView1)

REPARTO DAL AL ANNI MESI GIORNI
Carrozzeria 01/01/1998 31/12/1998 1 0 0
Verniciatura 01/01/1999 27/05/1999 0 5 27

(dati ListView2)
INDENNITA' DAL ANNI MESI GIORNI
Base 01/07/1998 1 0 0
Base + 5% 01/01/2000 1 5 27

In pratica dovrei fare una funzione che filtrando i dati in base al campo DAL della ListView2 mi sommasse Anni mesi e giorni dei dati della ListView1
e li inserisse nei campi ANNI MESI GIORNI della listView2 senza memorizzali nel database solo visivi.

Ah il calcolo lo vorrei effettuare senza servirmi del ListView1 ma dal SqlDataReader o DataSet praticamente vorrei usare lo stesso metodo che uso per calcolare i totali dal ListViev1.

Vi posto il codice che uso per calcolare i periodi dal ListView1

Private Sub CalcolaTotali()
'Dichiaro le variabili di tipo double che memorizza il totale
Dim DblTotaleAnniNU As Double
Dim DblTotaleMesiNU As Double
Dim DblTotaleGiorniNU As Double

'Ciclo tutte le righe e sommo il valore della colonna Giorni non utili

For i As Integer = 0 To Me.ListView1.Items.Count - 1
If IsNumeric((Me.ListView1.Items(i).SubItems(5).Text)) Then
DblTotaleGiorniNU += (Me.ListView1.Items(i).SubItems(5).Text)
End If
Next

' Visualizzo il risultato nella textbox
Me.txtGiorniNu.Text = CInt((((DblTotaleGiorniNU) / 30) - Fix(((DblTotaleGiorniNU) / 30))) * 30)

'Ciclo tutte le righe e sommo il valore della colonna Mesi non utili

For i As Integer = 0 To Me.ListView1.Items.Count - 1
If IsNumeric((Me.ListView1.Items(i).SubItems(4).Text)) Then
DblTotaleMesiNU += (Me.ListView1.Items(i).SubItems(4).Text)
End If
Next

' Visualizzo il risultato nella textbox
Me.txtMesiNu.Text = CInt(((((DblTotaleMesiNU) + (Fix(((DblTotaleGiorniNU) / 30))))) / 12 - (Fix(((DblTotaleMesiNU) + (Fix((DblTotaleGiorniNU) / 30))) / 12))) * 12)

'Ciclo tutte le righe e sommo il valore della colonna Anni non utili

For i As Integer = 0 To Me.ListView1.Items.Count - 1
If IsNumeric((Me.ListView1.Items(i).SubItems(3).Text)) Then
DblTotaleAnniNU += (Me.ListView1.Items(i).SubItems(3).Text)
End If
Next

' Visualizzo il risultato nella textbox
Me.txtAnniNu.Text = CInt((DblTotaleAnniNU) + (Fix(((DblTotaleMesiNU) + Fix(((DblTotaleGiorniNU) / 30))) / 12)))
End Sub

Ciao e grazie in anticipo

Mau67

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !