Dear Experts

create table sales free (code c(7),desc c(40))
insert into sales (code,desc) values("3","sales")
insert into sales (code,desc) values("31","cash sales")
insert into sales (code,desc) values("3101","sales of Hard Disk")
insert into sales (code,desc) values("31011","Seagate")
insert into sales (code,desc) values("3101101","40gb 7200rpm")

I want to display data as follows

3-sales
-31-cash sales
--3101-sales of Hard Disk
---31011-Seagate
----3101001-40gb 7200rpm


I have following codes, but these codes do not display this line

---31011-Seagate

Please modify

select master8
#define tvwfirst	0
#define tvwlast		1
#define tvwnext		2
#define tvwprevious	3
#define tvwchild	4

scan
	croot1  = "R"+left(code,1)
	cchild1 = substr(code,2,1)
	cchild2 = substr(code,3,2)
	cchild3 = right(code,3)
	c1level = croot1
	c2level = c1level + cchild1
	c3level = c2level + cchild2
	c4level = c3level + cchild3
	ctext = alltrim(code) + SPACE(2) + alltrim(desc)
	with thisform.oletreeview.nodes
		do case
		case len(alltrim(code)) = 1 && Level 1
			onode = .add(,,c1level,ctext,,)
			onode.forecolor = rgb(255,0,0)
		case len(alltrim(code)) = 2 && Level 2
			onode = .add(c1level, 4,c2level,ctext,,)
			onode.forecolor = rgb(128,0,128)
*	onode.fontbold = .t.
		case len(alltrim(code)) = 4 && Level 3
			onode = .add(c2level, 4,c3level,ctext,,)
			onode.forecolor = rgb(0,0,255)
		case len(alltrim(code)) = 7 && Level 4
			onode = .add(c3level, 4,c4level,ctext,,)
			onode.forecolor = rgb(0,0,0)
		endcase
	endwith
endscan