I'm generating a treeview in page.
Sub treevwgeneration()
Dim objDS As New DataSet
If Session("sesRole") = 2 Then
strsql = "select customernum,customername from CRPDM_customer"
strsql = strsql & " select projectnum,customernum,projectname from CRPDM_project "
ElseIf Session("sesRole") = 3 Then
strsql = "select customernum,customername from CRPDM_customer where customernum =" & Session("sesCustNum")
strsql = strsql & " select projectnum,customernum,projectname from CRPDM_project where customernum =" & Session("sesCustNum")
ElseIf Session("sesRole") = 1 Or Session("seslogin_userrole") = 0 Then
strsql = "select customernum,customername from CRPDM_customer where customernum in(select distinct customernum from CRPDM_allowedprojects where usernum=" & Session("sesUsrNum") & ")"
strsql = strsql & " select projectnum,customernum,projectname from CRPDM_project where customernum in(select distinct customernum from CRPDM_allowedprojects where usernum=" & Session("sesUsrNum") & ")"
End If
objDS.Clear()
objDS = sa.conn(strSqlConnectionString, strsql, "select", lblMsg)
objDS.Tables(0).TableName = "dtcust"
objDS.Tables(1).TableName = "dtproj"
If objDS.Tables(0).Rows.Count = 0 And objDS.Tables(1).Rows.Count = 0 Then
lbl_msg.Text = "Not yet allocated to any Phase."
Else
objDS.Relations.Add("custtoproj", objDS.Tables("dtcust").Columns("customernum"), objDS.Tables("dtproj").Columns("customernum"))
Dim rowcust, rowProj As DataRow
Dim firstcust, firstproj As String
'Dim nodecust As New TreeNode
'Dim nodeProj As New TreeNode
'Dim nodedoc As New TreeNode
'Dim nodemsg As New TreeNode
'Dim nodeiss As New TreeNode
firstcust = objDS.Tables("dtcust").Rows(0)("customernum")
firstproj = objDS.Tables("dtproj").Rows(0)("ProjectNum")
For Each rowcust In objDS.Tables("dtcust").Rows
nodecust = New RadTreeNode
nodecust.Text = rowcust("customername")
nodecust.Value = rowcust("customernum")
tvwReports.Nodes.Add(nodecust)
If nodecust.Value = firstcust Then
nodecust.Expanded = True
End If
For Each rowProj In rowcust.GetChildRows("custtoproj")
nodeProj = New RadTreeNode
nodeProj.Text = rowProj("ProjectName")
nodeProj.Value = rowProj("Projectnum")
nodecust.Nodes.Add(nodeProj)
If nodeProj.Value = firstproj Then
nodeProj.Expanded = True
tvwReports.Nodes.Item(0).Selected = True
tvwReports.SelectedNode.Visible = True
End If
''''''''''''''''''''
nodedoc = New RadTreeNode
nodemsg = New RadTreeNode
nodeiss = New RadTreeNode
nodedoc.Text = "Documents"
nodedoc.Value = 0
nodeProj.Nodes.Add(nodedoc)
nodemsg.Text = "Messages"
nodemsg.Value = 1
nodeProj.Nodes.Add(nodemsg)
nodeiss.Text = "Tickets"
nodeiss.Value = 2
nodeProj.Nodes.Add(nodeiss)
Next
Next
End If
End Sub
O/p is like this
Polypore
Lclite
Messages
Documents
Tickets
Node Click event :
Protected Sub tvwReports_NodeClick(ByVal o As Object, ByVal e As Telerik.WebControls.RadTreeNodeEventArgs) Handles tvwReports.NodeClick
tvselindex()
tvwReports.Nodes.Clear()
treevwgeneration()
End Sub
Sub tvselindex()
Try
ddlIssues.SelectedValue = 0
selnode = tvwReports.SelectedNode.UniqueID
selind = Split(selnode, ":t")
Session("treenode") = tvwReports.SelectedNode.Text
If UBound(selind) = 3 Then
'chtReport.Visible = True
dgReports.Visible = True
Dim objds As New DataSet
Dim intChkVal As Integer = tvwReports.Nodes(selind(1)).Nodes(selind(2)).Nodes(selind(3)).Value
ViewState("cus_num") = tvwReports.Nodes(selind(1)).Value
cus_num = ViewState("cus_num")
ViewState("pro_num") = tvwReports.Nodes(selind(1)).Nodes(selind(2)).Value
pro_num = ViewState("pro_num")
' chtReport.Visible = True
dgReports.Visible = True
strsql = ""
If intChkVal = 0 Then
'builddocchart()
strsql = "select Cu.customerName[Customer],Pr.ProjectName [Project],Ph.Phasename [Phase],SPh.SubPhasename [Subphase],Cd.Docname [Document],left(Cd.senddate,11) [Send Date],U.UserId [From] from CRPDM_customerdoc cd left join CRPDM_customer Cu on cd.customernum=cu.customernum left join CRPDM_Project Pr on cd.projectnum=Pr.projectnum left join CRPDM_Phase Ph on cd.Phasenum=Ph.phasenum left join CRPDM_Subphase SPh on cd.SubPhasenum=Sph.subphasenum left join CRPDM_usersecurity U on cd.ownernum=U.usernum where cd.customernum=" & cus_num & " and cd.projectnum=" & pro_num & " and cd.docname is not null"
bindgriddoc(strsql)
Else
lblMsg.Text = "Please Select documents/messages/tickets to view reports"
'' lblmsg.Visible = True
'chtReport.Visible = False
dgReports.Visible = False
End If
tvwReports.SelectedNode.ToolTip = tvwReports.SelectedNode.Text
tvwReports.SelectedNode.Selected = True
Catch ex As Exception
End Try
End Sub
Now my problem is if i click the any child node under Lclite..
the node is invisible...but the value is there.
pls give me any suggestion for this problem....
Thanks ,
Regards,
Devipriya A.K.