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 |
