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