Discussion :

[Youpsy]

Bonjour a tous !

J'ai un petit soucis.. Dans une form je filtre par un combobox une dgv qui a des colonne calculée(plusieurs, TotalMat, TotalInterv, Total) et je voudrai afficher le total de la colonne total dans ce textBox Voila ma page !

Un peu d'indulgence svp je ne suis pas du métier..
et merci pour votre aide !

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Public Class Synth
 
    Private Sub StatusInterventionsBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles StatusInterventionsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.StatusInterventionsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.StatusInterventions_DataSet)
 
    End Sub
 
    Private Sub Form20_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'Installations_DataSet.Installations'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.InstallationsTableAdapter.Fill(Me.Installations_DataSet.Installations)
        'TODO: cette ligne de code charge les données dans la table 'StatusInterventions_DataSet.StatusInterventions'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.StatusInterventionsTableAdapter.Fill(Me.StatusInterventions_DataSet.StatusInterventions)
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Close()
        HomeProgAdm.Show()
 
    End Sub
 
    Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Close()
        HomeProgAdm.Show()
 
    End Sub
 
    Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
        Me.Close()
        HomeProgAdm.Show()
    End Sub
 
 
 
 
    Private Sub StatusInterventionsBindingSource_PositionChanged(sender As Object, e As System.EventArgs) Handles StatusInterventionsBindingSource.PositionChanged, StatusInterventionsBindingSource.CurrentChanged
        If Me.StatusInterventionsBindingSource.Position > -1 Then
 
            Dim Total As Double = 0
 
            For Each row As DataRowView In Me.StatusInterventionsBindingSource.List
                Total += row!Total
 
            Next
            Me.TextBox1.Text = Format(Total, "c")
 
        Else
            Me.TextBox1.Text = ""
 
        End If
 
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Me.InstallationsBindingSource.Position = Me.ComboBox1.SelectedIndex
    End Sub
End Class

[dkmix]

Bonjour,
il faut être sur que row!Total est non null.
pseudo code (pas à l'aise en VB :

Code :

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

If (row!Total <> DbNull) Total += row!Total

[Youpsy]

Merci ! mais sans succès

Moi non plus je ne suis pas très a l'aise avec le vocabulaire informatique.
sur la minature ce que je ne comprend pas c'est que a coté de total, le total que je veux est affiche (780.0) est c'est le total que j veux.. donc il n'est pas null ?

[dkmix]

est-ce bien la "colonne" Total que vous voulez additionner ?

[Youpsy]

oui tout a fait !