请高手帮忙麻烦了多谢了有关TreeView的有关问题
请高手帮忙麻烦了谢谢了有关TreeView的问题
首先数据库有二个
一个是 dept 部门 表里有cDeptname部门名称
第二个是 employee 职员表 cEmployeename职员名称
这两个表根具体一个gtongID 的主见连在一起
我想让treeview 的 根节点 显示某盘
父接点显示各部门名称 根据关联取出职员显示其下及
我该怎么实现 请高手帮忙
用vb语言 编写出 或 有原代码最好
谢谢了
------解决方案--------------------
Private Sub ShowTreeView(ByRef dtKoumoku As DataTable, ByVal drRow As Integer)
Dim Kaisou(7) As String
trvKaiso.Nodes.Clear()
'項目第一行设定
trvKaiso.Nodes.Add(_strOrgNm)
For i As Integer = 0 To dtKoumoku.Rows.Count - 1
Kaisou = GetKaisou(dtKoumoku.Rows(i))
'节点追加
GetTreeNode(Kaisou).Add(dtKoumoku.Rows(i)("DEPT_CD").ToString & ":" & dtKoumoku.Rows(i)("ORGNM").ToString)
Next
If trvKaiso.Nodes.Count > 0 Then
'表示形式
trvKaiso.Nodes(0).ExpandAll()
End If
End Sub
//节点返回函数
Private Function GetTreeNode(ByVal Kaisou() As String) As TreeNodeCollection
Dim trnTemp As New TreeNode
For j As Integer = 7 To 0 Step -1
If Kaisou(j) <> "0000" Then
For i As Integer = 0 To j
If i = 0 The
trnTemp = trvKaiso.Nodes(0)
Else
trnTemp = trnTemp.Nodes(CInt(Kaisou(i - 1)) - 1)
End If
Next
Return trnTemp.Nodes
End If
Next
Return trnTemp.Nodes
End Function
------解决方案--------------------
请看这个列子 绝对有用 http://www.microsoft.com/china/community/Column/21.mspx
我也就学着的.
------解决方案--------------------
要先把语文补习一下
第一句就把我搞懵了,有两个数据库?但是后面根本没提到两个数据库
大体意思猜到了,除了那个某盘
首先你得会连数据库这个是基本的啊,再说树形的问题。
首先数据库有二个
一个是 dept 部门 表里有cDeptname部门名称
第二个是 employee 职员表 cEmployeename职员名称
这两个表根具体一个gtongID 的主见连在一起
我想让treeview 的 根节点 显示某盘
父接点显示各部门名称 根据关联取出职员显示其下及
我该怎么实现 请高手帮忙
用vb语言 编写出 或 有原代码最好
谢谢了
------解决方案--------------------
Private Sub ShowTreeView(ByRef dtKoumoku As DataTable, ByVal drRow As Integer)
Dim Kaisou(7) As String
trvKaiso.Nodes.Clear()
'項目第一行设定
trvKaiso.Nodes.Add(_strOrgNm)
For i As Integer = 0 To dtKoumoku.Rows.Count - 1
Kaisou = GetKaisou(dtKoumoku.Rows(i))
'节点追加
GetTreeNode(Kaisou).Add(dtKoumoku.Rows(i)("DEPT_CD").ToString & ":" & dtKoumoku.Rows(i)("ORGNM").ToString)
Next
If trvKaiso.Nodes.Count > 0 Then
'表示形式
trvKaiso.Nodes(0).ExpandAll()
End If
End Sub
//节点返回函数
Private Function GetTreeNode(ByVal Kaisou() As String) As TreeNodeCollection
Dim trnTemp As New TreeNode
For j As Integer = 7 To 0 Step -1
If Kaisou(j) <> "0000" Then
For i As Integer = 0 To j
If i = 0 The
trnTemp = trvKaiso.Nodes(0)
Else
trnTemp = trnTemp.Nodes(CInt(Kaisou(i - 1)) - 1)
End If
Next
Return trnTemp.Nodes
End If
Next
Return trnTemp.Nodes
End Function
------解决方案--------------------
请看这个列子 绝对有用 http://www.microsoft.com/china/community/Column/21.mspx
我也就学着的.
------解决方案--------------------
要先把语文补习一下
第一句就把我搞懵了,有两个数据库?但是后面根本没提到两个数据库
大体意思猜到了,除了那个某盘
首先你得会连数据库这个是基本的啊,再说树形的问题。