请教关于树型节点问题

stvent · 发表于 2011-4-26 16:07:08

附件中的节点，我是参考了论坛上面的前辈们得出的，但只做到一个节点，请问如何做出第二个节点！第二个节点是按合同编号分支！但不成功，请教各位，谢谢

stvent · 发表于 2011-4-27 16:26:30

kangking 发表于 2011-4-27 12:56
Set Rec = New ADODB.Recordset
Rec.Open "select DISTINCT 上级ID,合同ID,合同编号 from 合同明细 ...

谢谢你！真的！！

kangking · 发表于 2011-4-27 12:56:55

Set Rec = New ADODB.Recordset
Rec.Open "select DISTINCT 上级ID,合同ID,合同编号 from 合同明细查询 ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To Rec.RecordCount - 1
         Set nodex = TreeView.Nodes.Add("A" & Rec.Fields("上级ID"), tvwChild, "B" & Rec.Fields("合同ID"), Rec.Fields("合同编号"))

      Rec.MoveNext
Next i
Rec.Close

stvent · 发表于 2011-4-27 10:58:30

没人出现

stvent · 发表于 2011-4-27 10:24:10

还没有解决！~

stvent · 发表于 2011-4-27 10:04:00

鱼儿还在吗？

stvent · 发表于 2011-4-27 09:56:11

那该如何修改！谢谢！

鱼儿游游 · 发表于 2011-4-27 09:47:10

i=0时，父节点："A" & Rec.Fields("合同编号"）不存在，当然不能正常运行了。

鱼儿游游 · 发表于 2011-4-27 09:45:38

Set nodex = TreeView.Nodes.Add("A" & Rec.Fields("合同编号"), tvwChild, "B" & Rec.Fields("合同ID"), Rec.Fields("合同编号"))

鱼儿游游 · 发表于 2011-4-27 09:45:24

For i = 0 To Rec.RecordCount - 1
         Set nodex = TreeView.Nodes.Add("A" & Rec.Fields("合同编号"), tvwChild, "B" & Rec.Fields("合同ID"), Rec.Fields("合同编号"))

      Rec.MoveNext

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 请教关于树型节点问题

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)