TreeView控件节点操作,循环的问题
求大侠指导两个地方有问题:
一,GruopName字段为父节点,他的循环怎么写?
二,GroupQxName 字段为子节点,他的循环为什么写不进TreeView控件中,不会报错。
去掉循环就能写,但只有一条。
--------------------编程问答-------------------- 不好看看msdn,如果有visdata这个例子,仔细看看 --------------------编程问答-------------------- 父节点我已经加上去了。但是在添加子节点的时候添加失败。
Private Sub Form_Load()
Dim StrSql As String
Dim RsTrv As New ADODB.Recordset
'Dim MNODE As Node
StrSql = "SELECT GruopName,GroupQxName FROM t_GroupQX"
If link.ResultExecRs(RsTrv, StrSql) = True Then
RsTrv.MoveFirst
TreeView1.Nodes.Add , , "" & RsTrv.Fields(0).Value & "", "" & RsTrv.Fields(0).Value & ""
Do While RsTrv.EOF
TreeView1.Nodes.Add "" & RsTrv.Fields(0).Value & "", tvwChild, "" & RsTrv.Fields(1).Value & "", "" & RsTrv.Fields(1).Value & ""
RsTrv.MoveNext
Loop
Else
MsgBox "数据库操作错误", vbOKOnly, "提示"
End If
End Sub
我是先把所有父节点添加上去,然后循环TreeView控件的父节点
再把子节点添加上去。
但是总是报错。
--------------------编程问答-------------------- 哪里报错,报什么错?
Private Sub Form_Load()
Dim StrSql As String
Dim RsTrv As New ADODB.Recordset
Dim StrSqlChild As String
Dim RsTrvChild As New ADODB.Recordset
Dim i As Integer
StrSql = "SELECT DISTINCT GroupName FROM t_GroupQX"
If link.ResultExecRs(RsTrv, StrSql) = True Then
RsTrv.MoveFirst
Do While Not RsTrv.EOF
TreeView1.Nodes.Add , , "" & RsTrv.Fields(0).Value & "", "" & RsTrv.Fields(0).Value & ""
RsTrv.MoveNext
Loop
Else
MsgBox "数据库操作错误", vbOKOnly, "提示"
End If
For i = 1 To TreeView1.Nodes.Count
StrSqlChild = "SELECT GroupQxName FROM t_GroupQX WHERE GroupName=' " & TreeView1.Nodes.Item(i) & "'"
If link.ResultExecRs(RsTrvChild, StrSqlChild) = True Then
MsgBox "" & RsTrvChild.Fields(0) & ""
Do While RsTrvChild.EOF
TreeView1.Nodes.Add "" & TreeView1.Nodes.Item(i) & "", tvwChild, "" & RsTrvChild.Fields(0).Value & "", "" & RsTrvChild.Fields(0).Value & ""
RsTrvChild.MoveNext
Loop
Else
MsgBox "错了吗?"
End If
Next
End Sub
补充:VB , 控件