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
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.Open()
dp.Fill(ds, "ville")
dp2.Fill(ds, "clients")
dp3.Fill(ds, "commmande")
dr = New DataRelation("r1", ds.Tables("ville").Columns("ville"), ds.Tables("client").Columns("ville"))
ds.Relations.Add(dr)
dr1 = New DataRelation("r2", ds.Tables("clients").Columns("id"), ds.Tables("commande").Columns("id_client"))
ds.Relations.Add(dr1)
ComboBox1.DataSource = ds
ComboBox1.DisplayMember = "ville.ville"
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
DataGridView1.AutoGenerateColumns = True
DataGridView1.DataSource = ds
DataGridView1.DataMember = "ville.r1"
End Sub
Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
DataGridView2.AutoGenerateColumns = True
DataGridView2.DataSource = ds
DataGridView2.DataMember = "clients.r2"
End Sub |
Partager