nodeptr = thisform.oletreeview.selecteditem local childnodeptr, tkey, rch childnodeptr = m.nodeptr.child rch = m.nodeptr.children do while !isnull(m.childnodeptr) append blank replace csrkey with m.childnodeptr.key, ch with m.childnodeptr.children select csrtable childnodeptr = m.childnodeptr.next enddo