Office中国论坛/Access中国论坛

标题: 请教关于树型节点问题 [打印本页]

作者: stvent 时间: 2011-4-26 16:07
标题: 请教关于树型节点问题
附件中的节点，我是参考了论坛上面的前辈们得出的，但只做到一个节点，请问如何做出第二个节点！第二个节点是按合同编号分支！但不成功，请教各位，谢谢

作者: stvent 时间: 2011-4-26 16:19
在线等各位帮忙！~

作者: stvent 时间: 2011-4-27 08:06
一晚过了，还是没人能帮忙，唉！~

作者: stvent 时间: 2011-4-27 09:23
继续顶上

作者: 鱼儿游游 时间: 2011-4-27 09:45
For i = 0 To Rec.RecordCount - 1
         Set nodex = TreeView.Nodes.Add("A" & Rec.Fields("合同编号"), tvwChild, "B" & Rec.Fields("合同ID"), Rec.Fields("合同编号"))

      Rec.MoveNext

作者: 鱼儿游游 时间: 2011-4-27 09:45
Set nodex = TreeView.Nodes.Add("A" & Rec.Fields("合同编号"), tvwChild, "B" & Rec.Fields("合同ID"), Rec.Fields("合同编号"))

作者: 鱼儿游游 时间: 2011-4-27 09:47
i=0时，父节点："A" & Rec.Fields("合同编号"）不存在，当然不能正常运行了。

作者: stvent 时间: 2011-4-27 09:56
那该如何修改！谢谢！

作者: stvent 时间: 2011-4-27 10:04
鱼儿还在吗？

作者: stvent 时间: 2011-4-27 10:24
还没有解决！~

作者: stvent 时间: 2011-4-27 10:58
没人出现

作者: kangking 时间: 2011-4-27 12:56
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 16:26

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

谢谢你！真的！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)