Peter,
Investigating this, I see the third record you have posted, doesn't match the record above it. The PID is not the CID of the record above. Is this a typo, or part of the problem?
Tracy
>Hi,
>I am working on a treeview to display bills of material in a hierachial way.
>All works fine until a part is encountered which is used multiple times on the BOM. It is then not a unique key
>
>How are other folks getting around that problem??
>
>
>* Program....: D_BOM.LOADTREE
>* Version....:
>* Author.....: Peter A. Cortiel , mailto:pcortiel@earthlink.net
>* Date.......: 5/2/2003
>* Notice.....: Copyright (c) 2003 ** PCS **, All Rights Reserved.
>* Compiler...: Visual FoxPro 08.00.0000.2521 for Windows for Windows
>* Abstract...:
>* Changes....:
>
>*!*1 Pid Cid Lev Pname Cname Txt
>*!*2 2546 529 1 TEST5 PVANF1
>*!*3 529 46 2 PVANF1 APHOT
>*!*4 6 33 3 APHOT AMYO4V
>*!*5 46 35 3 APHOT ANUR1L
>*!*6 2546 2251 1 TEST5 ZZPC21
>*!*7 2546 1785 1 TEST5 AAEMA9
>*!*8 2546 1813 1 TEST5 QCET4F
>*!*9 2546 2545 1 TEST5 TEST4
>*!*10 2545 6 2 TEST4 ACYT1L
>*!*11 2545 1291 2 TEST4 ACYT4L
>*!*12 2545 2542 2 TEST4 zzTEST
>*!*13 2542 64 3 zzTEST BPGA5V
>*!*14 64 46 4 BPGA5V APHOT
>*!*15 46 33 5 APHOT AMYO4V
>*!*16 46 35 5 APHOT ANUR1L
>*!*17 2542 1629 3 zzTEST BNCHCP
>*!*18 2546 1292 1 TEST5 AGHCL5
>
>THISFORM.oletreeView.ImageList = THISFORM.OleImageList.OBJECT
>THISFORM.oletreeView.Nodes.CLEAR()
>SELECT ccBOM
>LOCATE
>liIndex=0
>SCAN
> lcParent=STR(ccBOM.pid,10,0)+"_"
> lcChild =STR(ccBOM.cid,10,0)+"_"
> lcName= ccBOM.cName
> lcLev=ccBOM.lev
> IF lcLev=1
> loNode=THISFORM.oletreeView.Nodes.ADD( ,1,lcChild ,lcName)
> loNode.expanded=.T.
> ELSE
> loNode=THISFORM.oletreeView.Nodes.ADD( lcParent ,4,lcChild ,lcName)
> loNode.expanded=.T.
> ENDIF
> liIndex=loNode.INDEX
>ENDSCAN
>
>
>
>
>
>Any iteas would be appreciated
>
>Thanks
>
>Peter
Tracy
