UC知道初学VB请各位大侠帮我注释一下。。3Q先
来源：百度知道 编辑：UC知道 时间：2024/07/04 13:32:19
’InitTree是用递归方法初始化TreeView控件的节点
Private Sub InitTree(ByRef ndParentNode As Node, ByVal sParentIndex As String)
Dim db As New DataBases
Dim rs As Recordset
Dim ndNew As Node
Set rs = db.RunSelectSQL("SELECT * FROM 组织机构编码表 WHERE ParentIndex='" + sParentIndex + "'")
While (Not rs.EOF)
Set ndNew = trvList.Nodes.Add(ndParentNode, 4, , rs("类别"))
InitTree ndNew, rs("AbsIndex") rs.MoveNext
Wend
db.CloseConn
Private Sub InitTree(ByRef ndParentNode As Node, ByVal sParentIndex As String)
Dim db As New DataBases
Dim rs As Recordset
Dim ndNew As Node
Set rs = db.RunSelectSQL("SELECT * FROM 组织机构编码表 WHERE ParentIndex='" + sParentIndex + "'")
While (Not rs.EOF)
Set ndNew = trvList.Nodes.Add(ndParentNode, 4, , rs("类别"))
InitTree ndNew, rs("AbsIndex") rs.MoveNext
Wend
db.CloseConn
'InitTree是用递归方法初始化TreeView控件的节点
Private Sub InitTree(ByRef ndParentNode As Node, ByVal sParentIndex As String)
Dim db As New DataBases '定义db
Dim rs As Recordset '定义rs
Dim ndNew As Node '定义ndNew
Set rs = db.RunSelectSQL("SELECT * FROM 组织机构编码表 WHERE ParentIndex='" + sParentIndex + "'") '查找指定数据库中,表"组织机构编码表"中,ParentIndex=sParentIndex的所有数据赋给rs
While (Not rs.EOF) '循环,当rs不为结尾时(不为最后一个)
Set ndNew = trvList.Nodes.Add(ndParentNode, 4, , rs("类别")) 'trvList新增加一项,数据为当前rs中"类别"的值
InitTree ndNew, rs("AbsIndex") '初始化ndNew,rs("AbsIndex")
rs.MoveNext '取出rs下一条信息
Wend '循环下一个
db.CloseConn '关闭db连接