关于treeview的node添加,帮我看看吧,谢了。

xiamei 2004-03-08 09:21:34
代码如下:
Private Sub Form_Load()
Dim nd As Node
Dim i As Integer
Dim j As Integer
Set nd = Tv1.Nodes.Add(, , "pj", "设备配件列表")
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
rs1.Open "select distinct pjmc from basic", cn, 3, 1
rs1.MoveFirst
i = 1
Do While Not rs1.EOF
Set nd = Tv1.Nodes.Add("pj", tvwChild, "p" & i, rs1.Fields("pjmc"))
Set rs2 = New ADODB.Recordset
rs2.Open "select distinct guig from basic where pjmc = '" & nd.Text & "' ", cn, 3, 1
If Not rs2.EOF Then
rs2.MoveFirst
j = 1
Do Until rs2.EOF
Set nd = Tv1.Nodes.Add("p" & i, tvwChild, , rs2!guig)
rs2.MoveNext
j = j + 1
Loop
End If
Set rs2 = Nothing
rs1.MoveNext
i = i + 1
Loop
End Sub
...全文
74 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧