scan && scan table full of treeview values if empty(tparent) loNode = thisform.acxTreeView.nodes.add(, , alltrim(tname), alltrim(tdescrip)) else loNode = thisform.acxTreeView.nodes.add(alltrim(tparent), tnum, alltrim(tname), alltrim(tdescrip)) endif if thisform.makelink(alltrim(thisform.txtPid.value), alltrim(tname)) loNode.checked = .t. endif if thisform.isexpanded(alltrim(tname)) loNode.expanded = .t. endif endscanThank You Very Much,
>*** ActiveX Control Event *** >Lparameters node >If node.key = 'Root' > llChecked = node.Checked > If node.Children > 0 > Node.Child.Checked = llChecked > lnIndex = Node.Child.Index > Do while lnIndex # Node.Child.LastSibling.Index > this.Nodes(lnIndex).Next.Checked = llChecked > lnIndex = this.Nodes(lnIndex).Next.Index > Enddo > Endif >Endif >Cetin