当前位置:编程学习 > VB >>

TreeView控件节点操作,循环的问题

求大侠指导

两个地方有问题:
一,GruopName字段为父节点,他的循环怎么写?
二,GroupQxName 字段为子节点,他的循环为什么写不进TreeView控件中,不会报错。
去掉循环就能写,但只有一条。

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
--------------------编程问答-------------------- 不好看看msdn,如果有visdata这个例子,仔细看看 --------------------编程问答-------------------- 父节点我已经加上去了。但是在添加子节点的时候添加失败。
我是先把所有父节点添加上去,然后循环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 ,  控件
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,