Vi posto lo script che popola il treeview:
<script runat="server">
Public globale As String
Dim globale2 As String
Dim cont = 0
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Primo.Visible = True
Secondo.Visible = False
End Sub
Sub NavigationMenu1_Menu1ItemClick(ByVal sender As Object, ByVal e As MenuEventArgs)
' Display the text of the menu item selected by the user.
If e.Item.Text = "Ricerca per produttore" Then
Primo.Visible = False
Secondo.Visible = True
End If
End Sub
Protected Sub TreeView1_TreeNodePopulate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs) Handles TreeView1.TreeNodePopulate
If e.Node.ChildNodes.Count = 0 Then
Select Case e.Node.Depth
Case 0
PopulateCategories(e.Node)
Case 1
PopulateSubCategories(e.Node)
Case 2
PopulateSubMarca(e.Node)
End Select
End If
End Sub
Sub PopulateCategories(ByVal node As TreeNode)
Dim sqlQuery As New SqlCommand("SELECT Caratteri01 FROM dbo.CATWEBMAIN")
Dim ResultSet As DataSet
ResultSet = RunQuery(sqlQuery)
If ResultSet.Tables.Count > 0 Then
Dim row As DataRow
For Each row In ResultSet.Tables(0).Rows
Dim NewNode As TreeNode = New _
TreeNode(row("Caratteri01").ToString())
NewNode.PopulateOnDemand = True
NewNode.ImageUrl = "ImgMenu/" + (row("Caratteri01")).ToString + ".gif"
NewNode.SelectAction = TreeNodeSelectAction.Expand
node.ChildNodes.Add(NewNode)
Next
End If
End Sub
Sub PopulateSubCategories(ByVal node As TreeNode)
Dim sqlQuery As New SqlCommand
sqlQuery.CommandText = "SELECT Prodotto FROM dbo.CLINEListino Where Caratteri01 = @Caratteri01 GROUP BY Prodotto"
sqlQuery.Parameters.Add("@Caratteri01", SqlDbType.Char).Value = node.Value
Dim ResultSet As DataSet = RunQuery(sqlQuery)
If ResultSet.Tables.Count > 0 Then
Dim row As DataRow
For Each row In ResultSet.Tables(0).Rows
Dim NewNode As TreeNode = New _
TreeNode(row("Prodotto").ToString())
NewNode.PopulateOnDemand = True
NewNode.SelectAction = TreeNodeSelectAction.Expand
node.ChildNodes.Add(NewNode)
Next
End If
End Sub
Sub PopulateSubMarca(ByVal node As TreeNode)
Dim sqlQuery As New SqlCommand
sqlQuery.CommandText = "SELECT Caratteri00, Prodotto, Caratteri01 FROM dbo.CLINEListino WHERE (Prodotto=@Prodotto) AND (Caratteri01=@Caratteri01)"
sqlQuery.Parameters.Add("@Caratteri01", SqlDbType.Char).Value = node.Value
sqlQuery.Parameters.Add("@Prodotto", SqlDbType.Char).Value = node.Value
Dim ResultSet As DataSet = RunQuery(sqlQuery)
If ResultSet.Tables.Count > 0 Then
Dim row As DataRow
For Each row In ResultSet.Tables(0).Rows
Dim NewNode As TreeNode = New _
TreeNode(row("Caratteri00").ToString())
NewNode.PopulateOnDemand = False
NewNode.SelectAction = TreeNodeSelectAction.SelectExpand
node.ChildNodes.Add(NewNode)
globale2 = Convert.ToString(NewNode.Parent.Text)
NewNode.NavigateUrl = "Default.aspx?caratteri00=" + NewNode.Value + "&prodotto=" + globale2.ToString
globale2 = ""
Next
End If
End Sub
Function RunQuery(ByVal sqlQuery As SqlCommand) As DataSet
Dim connectionString As String
connectionString = ConfigurationManager.ConnectionStrings("CLINEConnectionstring").ConnectionString
Dim dbConnection As New SqlConnection
dbConnection.ConnectionString = connectionString
Dim dbAdapter As New SqlDataAdapter
dbAdapter.SelectCommand = sqlQuery
sqlQuery.Connection = dbConnection
Dim resultsDataSet As DataSet = New DataSet
Try
dbAdapter.Fill(resultsDataSet)
Catch ex As Exception
labelStatus.Text = "Unable to connect to SQL Server."
End Try
Return resultsDataSet
End Function
Il corpo:
<asp:panel id="Primo" runat="server">
<asp:TreeView ID="TreeView1" runat="server" ExpandDepth="1" ImageSet="BulletedList" MaxDataBindDepth="4" OnTreeNodePopulate="TreeView1_TreeNodePopulate" ShowExpandCollapse="False" Font-Bold="True" Font-Names="Verdana">
<Nodes>
<asp:TreeNode Checked="True" PopulateOnDemand="True" SelectAction="SelectExpand"
Selected="True" Text="Categorie" Value="Categorie"></asp:TreeNode>
</Nodes>
<ParentNodeStyle Font-Bold="False" Font-Names="Verdana" Font-Size="8pt" HorizontalPadding="5px"
NodeSpacing="1px" VerticalPadding="2px" />
<RootNodeStyle Font-Names="Verdana" Font-Size="8pt" ForeColor="Black" />
<HoverNodeStyle Font-Underline="True" ForeColor="#5555DD" />
<SelectedNodeStyle Font-Underline="True" HorizontalPadding="0px" VerticalPadding="0px" ForeColor="#5555DD" />
<NodeStyle Font-Names="Verdana" Font-Size="8pt" ForeColor="Black" HorizontalPadding="0px"
NodeSpacing="0px" VerticalPadding="0px" />
</asp:TreeView>
<asp:Label ID="labelStatus" runat="server" Text="Label" Visible="False"></asp:Label><br />
</asp:panel>
Spero si capisca qualcosa... non so proprio + dove guardare per risolvere il problema!
