Datagrid : Afficher directement les lignes enfants sans passer par un lien

Question

Bonjour, 

j'ai un datagrid sur lequel j'essaye de faire une gestion Child / Parent. Je m'explique : 
J'essaye de reproduire une interface similaire a celle de Microsoft Office Project 2003 (pour ceux qui connaissent)
En gros, j'essaye d'avoir un datagrid avec une ligne parent, et ses sous lignes enfant ...etc etc par r&#233;cursivit&#233;.

Mon probl&#232;me est le suivant :

Je voudrais, dans la ligne enfant, que les donn&#233;es soient directement affich&#233;es, et que je n'ai pas a passez par un lien sur lequel il faut cliquer pour visualiser les donn&#233;es. Sachant que je me moque des probl&#232;me de contraintes de cl&#233; que cela engendre.

Si quelqu'un connait la solution a mon probleme, ou peut que je n'utilise pas le bon controle pour mon probleme, merci d'avance 

Pour info, voici un petit extrait de mon code :



' Cr&#233;ation d'une table TABLE1



Dim Table1 
As DataTable


Table1 = 
New DataTable("TABLE1")



Dim Table2 
As DataTable


Table2 = 
New DataTable("TABLE2")



' Declaration des trois lignes que nous allons ajouter



Dim Row1, Row2, Row3 
As DataRow



Dim cRow1, cRow2, cRow3 
As DataRow



' Cr&#233;ation des colonnes 



Dim COL1 
As DataColumn = 
New DataColumn("COL1")


COL1.DataType = System.Type.GetType("System.String")


Table1.Columns.Add(COL1)



Dim COL2 
As DataColumn = 
New DataColumn("COL2")


COL2.DataType = System.Type.GetType("System.String")


Table1.Columns.Add(COL2)



Dim COL3 
As DataColumn = 
New DataColumn("COL3")


COL3.DataType = System.Type.GetType("System.String")


Table1.Columns.Add(COL3)



Dim COL4 
As DataColumn = 
New DataColumn("COL4")


COL4.DataType = System.Type.GetType("System.String")


Table1.Columns.Add(COL4)



Dim cCOL1 
As DataColumn = 
New DataColumn("COL1")


cCOL1.DataType = System.Type.GetType("System.String")


Table2.Columns.Add(cCOL1)



Dim cCOL2 
As DataColumn = 
New DataColumn("COL2")


cCOL2.DataType = System.Type.GetType("System.String")


Table2.Columns.Add(cCOL2)



Dim cCOL3 
As DataColumn = 
New DataColumn("COL3")


cCOL3.DataType = System.Type.GetType("System.String")


Table2.Columns.Add(cCOL3)



Dim cCOL4 
As DataColumn = 
New DataColumn("COL4")


cCOL4.DataType = System.Type.GetType("System.String")


Table2.Columns.Add(cCOL4)



' Remplissage et ajout de la premi&#232;re ligne


Row1 = Table1.NewRow()


Row1.Item("COL1") = "1"


Row1.Item("COL2") = "Reddy"


Row1.Item("COL3") = "15/05/1979"


Row1.Item("COL4") = "Sydney"


Table1.Rows.Add(Row1)



' Idem pour la ligne 2


Row2 = Table1.NewRow()


Row2.Item("COL1") = "2"


Row2.Item("COL2") = "Bella"


Row2.Item("COL3") = "14/07/2004"


Row2.Item("COL4") = "Adelaide"


Table1.Rows.Add(Row2)



' Idem pour la ligne 3


Row3 = Table1.NewRow()


Row3.Item("COL1") = "3"


Row3.Item("COL2") = "Adam"


Row3.Item("COL3") = "09/07/1952"


Row3.Item("COL4") = "Brisbane"


Table1.Rows.Add(Row3)


cRow1 = Table2.NewRow()


cRow1.Item("COL1") = "1"


cRow1.Item("COL2") = "child Reddy"


cRow1.Item("COL3") = "13/08/2002"


cRow1.Item("COL4") = "Sydney"


Table2.Rows.Add(cRow1)



' Idem pour la ligne 2


cRow2 = Table2.NewRow()


cRow2.Item("COL1") = "2"


cRow2.Item("COL2") = "child Bella"


cRow2.Item("COL3") = "19/07/1985"


cRow2.Item("COL4") = "Adelaide"


Table2.Rows.Add(cRow2)



' Idem pour la ligne 3


cRow3 = Table2.NewRow()


cRow3.Item("COL1") = "3"


cRow3.Item("COL2") = "child Adam"


cRow3.Item("COL3") = "14/03/2001"


cRow3.Item("COL4") = "Brisbane"


Table2.Rows.Add(cRow3)



' Cr&#233;ation d'un dataset



Dim ds 
As 
New DataSet


ds = 
New DataSet



' Lien entre notre dataset et leDataTable


ds.Tables.Add(Table1)


ds.Tables.Add(Table2)


ds.Relations.Add("sRelation", ds.Tables("TABLE1").Columns(0), ds.Tables("TABLE2").Columns(0))



'ds.Relations()


dg.SetDataBinding(ds, "TABLE1")



With dg


.DataSource = ds


.DataMember = "sRelation"


.BackgroundColor = System.Drawing.Color.Lavender


.CaptionBackColor = System.Drawing.Color.SlateBlue


.CaptionForeColor = System.Drawing.Color.LemonChiffon


.ParentRowsBackColor = System.Drawing.Color.Lavender


.ParentRowsForeColor = System.Drawing.Color.SlateBlue


.CaptionText = "Test"


.TableStyles.Clear()


.FlatMode = 
True


.BorderStyle = BorderStyle.FixedSingle



End 
With

cs_piwy · Answer

snif, personne n'a de r&#233;ponse &#224; mon probl&#232;me.

J'ai beau chercher je ne trouve rien.

Merci

 :: piwy ::

Datagrid : Afficher directement les lignes enfants sans passer par un lien

1 réponse

Discussions similaires