Asp.net et treeview

deathsurfer Messages postés 35 Date d'inscription lundi 15 juin 2009 Statut Membre Dernière intervention 28 juillet 2009 - 11 juil. 2007 à 17:47
deathsurfer Messages postés 35 Date d'inscription lundi 15 juin 2009 Statut Membre Dernière intervention 28 juillet 2009 - 12 juil. 2007 à 12:42
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:
<!-- BEGIN TEMPLATE: bbcode_code -->

Code :

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

<!-- END TEMPLATE: bbcode_code -->

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

1 réponse

deathsurfer Messages postés 35 Date d'inscription lundi 15 juin 2009 Statut Membre Dernière intervention 28 juillet 2009
12 juil. 2007 à 12:42
 <!-- / status icon and date -->,

,

----

<!-- netah -->
,
<!-- / icon and title -->
<!-- message -->

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!

<!-- BEGIN TEMPLATE: bbcode_code -->

Code :

Dim item, item2 AsObject
Dim i, k AsInteger
Dim rs AsNew Microsoft.SqlServer.ReportingServices2005.ReportingService2005
Dim cat()As Microsoft.SqlServer.ReportingServices2005.CatalogItem = Nothing
Dim root AsNew TreeNode
root.Text = "ReportServer"
TreeView1.Nodes.AddAt(0, root)
rs.Credentials = System.Net.CredentialCache.DefaultCredentials
i = 0
IfNot Page.IsPostBackThen
cat = rs.ListChildren("/", True)
ForEach item In cat
If item.Type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.FolderThen
Dim enfant AsNew TreeNode
enfant.Text = item.name
TreeView1.Nodes(0).ChildNodes.AddAt(i, enfant)
i = i + 1
ForEach item2 In rs.ListChildren("/" & enfant.text, True)
k = 0
Dim enfant2 AsNew TreeNode
If item2.type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.ReportThen
enfant2.Text = item2.name
enfant.ChildNodes.AddAt(k, enfant2)
k = k + 1
ElseIf item2.type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.DataSourceThen
enfant2.ImageUrl = "datasource.gif"
enfant2.Text = item2.name
enfant.ChildNodes.AddAt(k, enfant2)
k = k + 1
ElseIf item2.type = Microsoft.SqlServer.ReportingServices2005.ItemTypeEnum.ModelThen
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é item2et Is nothing,rs.ListChildren("/" & enfant.text, True) et Is nothing...rien ne marche!'
ElseIf item2 = NothingThen
k = 0
enfant2.text = "EMPTY"
enfant.childNodes.addAt(k, enfant2)
ExitFor
EndIf
Next
EndIf
Next
EndIf

<!-- END TEMPLATE: bbcode_code -->

Merci à tous de votre aide, parce que là, je bloque!
0
Rejoignez-nous