Discussion :

[Jonathan31]

Bonjour,

J'ai un comboBox et 4 Textbox qui sont envoyés dans mon listview par un bouton, de cette manière.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Listview configuration
 
 
 
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        ListView1.Columns.Add("col1", 330, HorizontalAlignment.Center)
        ListView1.Columns.Add("col2", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("col3", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("col4", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("col5", 60, HorizontalAlignment.Center)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        ' Affectation des données dans listview
 
        Dim liste As New ListViewItem
 
        If ComboBox2.Text <> Nothing Or TextBox2.Text <> Nothing Or TextBox3.Text <> Nothing Or TextBox4.Text <> Nothing Or TextBox5.Text <> Nothing Then
 
            liste.Text = ComboBox2.Text.ToString
            liste.SubItems.Add(TextBox2.Text.ToString)
            liste.SubItems.Add(TextBox3.Text.ToString)
            liste.SubItems.Add(TextBox4.Text.ToString)
            liste.SubItems.Add(TextBox5.Text.ToString)
            ListView1.Items.Add(liste)
 
        End If

Maintenant, je désire additionner les colonnes de Textbox2, Textbox3, Textbox4, Textbox5 et ainsi que les sommes soient dirigés automatiquement vers 4 autres Textbox.


Comment obtenir la somme de chaque colonne?

Merci de votre aide !

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function SumColumn(ByVal lst As ListView, ByVal columnIndex As Integer) As Integer
 
    Dim sum As Integer = 0
    For Each item As ListViewItem In lst.Items
 
        Dim text As String = item.SubItems(columnIndex).Text
        Dim value As Integer = Int32.Parse(text)
        sum = sum + value
 
    Next
 
    Return Sum
 
End Function