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
|
Imports System.Xml
Imports System.Data
Public Class Oldsell
Private Sub Oldsell_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Lecture du XML et implémentation dans le DataGrid au chargement de la Form
Dim filePath As String = "Z:\Ventes.xml"
DS4.ReadXml(filePath)
DataGridView1.DataSource = DS4
DataGridView1.DataMember = "Objet"
DataGridView1.Sort(DataGridView1.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
'Affichage uniquement des objets non débités
Dim Debit2 As String
For Each row2 As DataGridViewRow In DataGridView1.Rows
Debit2 = row2.Cells("Débité").Value
If Debit2 = "Non" Then
row2.Visible = False
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Achats.Show()
Me.Visible = False
End Sub
End Class |
Partager