Discussion :

[deathsurfer]

Bonjour à tous!!
alors voilà j'arrive pas à mettre dans le petit treeview ces infos là et j'aimerai le faire comme ça si possible sinon je ferais un fichier XML mais bon...
Tout est dans les commentaires du code:

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 Dim root as Treenode
root.text="ReportServer"
Dim item, item2 As Object
        Dim rs As New Microsoft.SqlServer.ReportingServices2005.ReportingService2005
        Dim cat() As Microsoft.SqlServer.ReportingServices2005.CatalogItem = Nothing
        rs.Credentials = System.Net.CredentialCache.DefaultCredentials
        If Not Page.IsPostBack Then
            cat = rs.ListChildren("/", True)
            For Each item In cat
                If item.Type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.Folder Then
                    DropDownList1.Items.Add(item.name)
'a la place de la droplist je voudrais que ce soit les enfants1 du roots
 
                    For Each item2 In rs.ListChildren("/" & DropDownList1.selectedItem.text, True)
'ici a la place de DropDownList1.selectedItem.text je voudrais que ce soit 'l'enfant1 sélectionné
                        If item2.type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.Report Then
                            Listbox1.Items.add(item2.name)
'a la place de la listbox je voudrais que ce soit les enfants2 des enfants1
 
                        End If
                    Next
                End If
            Next
        End If

Merci a tous de votre aide car je n'arrive pas a ajouter des enfants a une node en fait...

[deathsurfer]

Bon alors j'ai réussi (il faut parcourir longtemps le net, et google est notre ami n'est-ce-pas?)
Mais il subsiste un problème: Si item2 n'existe pas, c'est a dire si enfant (un dossier) est vide alors ajout d'un enfant avec pour nom EMPTY; j'ai essayé item2= et Is nothing,rs.ListChildren("/" & enfant.text, True) = et Is nothing...rien ne marche!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Dim item, item2 As Object
        Dim i, k As Integer
        Dim rs As New Microsoft.SqlServer.ReportingServices2005.ReportingService2005
        Dim cat() As Microsoft.SqlServer.ReportingServices2005.CatalogItem = Nothing
        Dim root As New TreeNode
        root.Text = "ReportServer"
        TreeView1.Nodes.AddAt(0, root)
        rs.Credentials = System.Net.CredentialCache.DefaultCredentials
        i = 0
        If Not Page.IsPostBack Then
            cat = rs.ListChildren("/", True)
            For Each item In cat
                If item.Type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.Folder Then
                    Dim enfant As New TreeNode
                    enfant.Text = item.name
                    TreeView1.Nodes(0).ChildNodes.AddAt(i, enfant)
                    i = i + 1
                    For Each item2 In rs.ListChildren("/" & enfant.text, True)
                        k = 0
                        Dim enfant2 As New TreeNode
                        If item2.type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.Report Then
                            enfant2.Text = item2.name
                            enfant.ChildNodes.AddAt(k, enfant2)
                            k = k + 1
                        ElseIf item2.type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.DataSource Then
                            enfant2.ImageUrl = "datasource.gif"
                            enfant2.Text = item2.name
                            enfant.ChildNodes.AddAt(k, enfant2)
                            k = k + 1
                        ElseIf item2.type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.Model Then
                            enfant2.ImageUrl = "model.gif"
                            enfant2.Text = item2.name
                            enfant.ChildNodes.AddAt(k, enfant2)
                            k = k + 1
'******************ICI**************************'
'Si item2 n'existe pas, c'est a dire si enfant (un dossier) est vide alors
'ajout d'un enfant avec pour nom EMPTY
'j'ai essayé item2= et Is nothing,rs.ListChildren("/" & enfant.text, True) = et Is nothing...rien ne marche!'
                        ElseIf item2 = Nothing Then
                            k = 0
                            enfant2.text = "EMPTY"
                            enfant.childNodes.addAt(k, enfant2)
                            Exit For
                        End If
                    Next
                End If
            Next
        End If

Merci à tous de votre aide, parce que là, je bloque!

[deathsurfer]

Finalement je me suis aidé tout seul et j'ai trouvé...
Si ca interresse quelqu'un laissez un message ici