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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
| Dim DSNWind As DataSet
Dim CNwind As New SqlClient.SqlConnection("....")
Dim DACI1 As New SqlClient.SqlDataAdapter("SELECT IMP_CODE, IMP_NOM, TACHE.CODEFACIAL, TACHE.LIBELLE FROM CI" _
& " inner join Tache on CI.TACHE_ID = TACHE.ID WHERE NIVEAU = 1", CNwind)
Dim DACI2 As New SqlClient.SqlDataAdapter("SELECT IMP_CODE, IMP_NOM, TACHE.CODEFACIAL, TACHE.LIBELLE FROM CI" _
& " inner join Tache on CI.TACHE_ID = TACHE.ID WHERE NIVEAU = 2", CNwind)
Dim DACI3 As New SqlClient.SqlDataAdapter("SELECT IMP_CODE, IMP_NOM, TACHE.CODEFACIAL, TACHE.LIBELLE FROM CI" _
& " inner join Tache on CI.TACHE_ID = TACHE.ID WHERE NIVEAU = 3", CNwind)
Dim DACI4 As New SqlClient.SqlDataAdapter("SELECT IMP_CODE, IMP_NOM, TACHE.CODEFACIAL, TACHE.LIBELLE FROM CI" _
& " inner join Tache on CI.TACHE_ID = TACHE.ID WHERE NIVEAU = 4", CNwind)
CNwind.Open()
'ça saute à partir d'ici
DACI1.Fill(DSNWind, "chargerCi1")
DACI2.Fill(DSNWind, "chargerCi2")
DACI3.Fill(DSNWind, "chargerCi3")
DACI4.Fill(DSNWind, "chargerCi4")
CNwind.Close()
'Création des data relation afin e simplifier la relation entre la table CI et la table Tache
DSNWind.Relations.Add("_CI1", DSNWind.Tables("chargerCi1").Columns("TACHE_ID"), DSNWind.Tables("TACHE").Columns("ID"))
DSNWind.Relations.Add("_CI2", DSNWind.Tables("chargerCi2").Columns("TACHE_ID"), DSNWind.Tables("TACHE").Columns("ID"))
DSNWind.Relations.Add("_CI3", DSNWind.Tables("chargerCi3").Columns("TACHE_ID"), DSNWind.Tables("TACHE").Columns("ID"))
DSNWind.Relations.Add("_CI4", DSNWind.Tables("chargerCi4").Columns("TACHE_ID"), DSNWind.Tables("TACHE").Columns("ID"))
'''''''''''''''''''''''
TreeViewTache.Nodes.Clear()
Dim i, n As Integer
Dim parentrow As DataRow
Dim ParentTable As DataTable
ParentTable = DSNWind.Tables("chargerCi1")
For Each parentrow In ParentTable.Rows
Dim parentnode As TreeNode
parentnode = New TreeNode(parentrow.Item(0))
TreeViewTache.Nodes.Add(parentnode)
''''populate child'''''
'''''''''''''''''''''''
Dim childRow As DataRow
Dim childNode As TreeNode
childNode = New TreeNode()
For Each childRow In parentrow.GetChildRows("_CI1")
childNode = parentnode.Nodes.Add(childRow(0) & " " & childRow(1) & " " & childRow(2) & " " & childRow(3))
childNode.Tag = childRow("TACHE_ID")
''''populate child2''''
''''''''''''''''''''''''''
Dim childRow2 As DataRow
Dim childNode2 As TreeNode
childNode2 = New TreeNode()
For Each childRow2 In childRow.GetChildRows("_CI2")
childNode2 = childNode.Nodes.Add(childRow2(0) & " " & childRow(1) & " " & childRow(2))
childNode2.Tag = childRow("TACHE_ID")
''''populate child3''''
''''''''''''''''''''''''''
Dim childRow3 As DataRow
Dim childNode3 As TreeNode
childNode3 = New TreeNode()
For Each childRow3 In childRow.GetChildRows("_CI3")
childNode3 = childNode.Nodes.Add(childRow3(0) & " " & childRow(1))
childNode3.Tag = childRow("TACHE_ID")
''''populate child4''''
''''''''''''''''''''''''''
Dim childRow4 As DataRow
Dim childNode4 As TreeNode
childNode4 = New TreeNode()
For Each childRow4 In childRow.GetChildRows("_CI4")
childNode4 = childNode.Nodes.Add(childRow4(0))
'''''''''''''''
Next childRow4
Next childRow3
Next childRow2
Next childRow
Next parentrow |
Partager