Help with dynamic parent child tree control UX

[-Jinx-]

So,
My brain stopped working a little bit after noon but I need to get this finished up.

I'm using a recursive SQL query to get the data I need but I'm having trouble organizing it in Xbasic and then reformatting it to work with the tree control

Here is an example of the data I would be pulling in.

PARNT	        CHILD	        PLev
BA-100GAU  12	3132 - E1-210	1
BA-100GAU  12	5651 - D1-634	1
BA-100GAU  12	76128- D1-634	1
BA-100GAU  12	7902 - Z -880	1
BA-100GAU  12	841  -DAU-940	1
3132 - E1-210	R12    -H-210	2
841  -DAU-940	139  - D2-120	2
841  -DAU-940	26020- D2-210	2
841  -DAU-940	3347 -D2A-210	2
841  -DAU-940	3694 - D -210	2
841  -DAU-940	3820 - D2B753	2
841  -DAU-940	65150- D -993	2
841  -DAU-940	689  - D -470	2
841  -DAU-940	7423 - D -750	2
139  - D2-120	139  - DA-C20	3
26020- D2-210	R1332  -R-210	3
3694 - D -210	R12    -H-210	3
139  - DA-C20	139  - D -SHL	4
139  - DA-C20	R81    -A-120	4
139  - DA-C20	RB6    -A-003	4
139  - D -SHL	SAND	        5

As you can see by the data, the top level Parent has 5 Children, then there are grandchildren and great grand children etc. I need to make the tree represent that. An example would be like the below:

+BA-100GAU  12 
     +841  -DAU-940 
          +139  - D2-120
               +139  - DA-C20
                       R81    -A-120
                       RB6    -A-003
                    +139  - D -SHL
                            SAND

So, among the different versions of stuff I tried, I've now just pulled this data into an array, thinking that might be the easiest.

.....
if cn.Execute(SQL,args) then
			dim rs as SQL::ResultSet
			rs = cn.ResultSet
			dim r[0] as p
			while rs.NextRow()
				r.append()
				eval("r["+alltrim(str(plev))+"].Parent") = rs.Data("PARNT")
				eval("r["+alltrim(str(plev))+"].Child") = rs.Data("CHILD")
				eval("r["+alltrim(str(plev))+"].Level") = rs.Data("PLev")
				plev = plev + 1
			end while
......

It seems like every time I use array.find() or some other way to solve my issue though, it ends up not working right or I can't find enough documentation to figure it out.

Anyway, like I said, my brain is toast. Can someone give me a hand moving data from this array (which ends up looking just like the SQL Data) into a new array formatted for the tree control?

Thanks!

[-Jinx-]

Re: Help with dynamic parent child tree control UX

No takers huh?
It is pretty hard to wrap your mind around, that's for sure. I'm going to give it another go today and see what I can come up with.

[Michael1954]

Re: Help with dynamic parent child tree control UX

Looking at this but

3132 - E1-210 R12 -H-210 2
3694 - D -210 R12 -H-210 3


Is it possible for R12 -H-210 to have 2 parents?

[Michael1954]

Re: Help with dynamic parent child tree control UX

Here is some code that does a similar thing.

Selwyn explained this code in the following video.
https://www.youtube.com/watch?v=3Rdf1SEKg_Q
It gets interesting at 5:00 mins

My code builds a google tree chart


function onDialogInitialize as v (e as p)

dim sql as c
sql = <<%txt%

SELECT
tree_step_2.col1 AS col1,
tree_step_2.col2 AS col2,
tree_step_2.col3 AS col3,
tree_step_2.col4 AS col4,
concat('[\'',`tree_step_2`.`col1`,'\', ',if((`tree_step_2`.`col2` = 'null'),`tree_step_2`.`col2`,concat('\'',`tree_step_2`.`col2`,'\'')),' , ',`tree_step_2`.`col3`,' , ',`tree_step_2`.`col4`,' ]') AS detail,
tree_step_2.Entity_Id
from `tree_step_2`




%txt%

dim cn as sql::Connection
cn.open("::Name::MySQL_Warranty_V1")
dim flag as l
flag = cn.Execute(sql)
dim rs as sql::ResultSet
rs = cn.ResultSet
dim template as c
'debug(1)
template = "{ds.data("detail")},"

dim txt as c
txt = a5_mergedataintotemplate(template,rs)

txt = rtrim(txt,",")


txt = "[['Location', 'Parent', 'George', 'Mildred']," + txt + "]"

dim js as c
js = "{dialog.object}._data = " + txt + ";"


e.javascript = js


end function

[-Jinx-]

Re: Help with dynamic parent child tree control UX

Yup, it can have two parents or maybe it's more accurate to say that both parents are made from the same material R12 -H-210.

When I get back to work I'll check out the code you posted. Thanks for the reply!