thisform.TreeView.Nodes.Add(,1,"AllAccounts","All Accounts",0) SCAN DO CASE CASE EMPTY(Code2) AND EMPTY(Code3) thisform.TreeView.Nodes.Add("AllAccounts",4,ALLTRIM(Code1),ALLTRIM(Name),0) CASE NOT EMPTY(Code2) AND EMPTY(Code3) thisform.TreeView.Nodes.Add(ALLTRIM(Code1),4,ALLTRIM(Code1)+ALLTRIM(Code2),ALLTRIM(Name),0) CASE NOT EMPTY(Code2) AND NOT EMPTY(Code3) thisform.TreeView.Nodes.Add(ALLTRIM(Code1)+ALLTRIM(Code2),4,ALLTRIM(Code1)+ALLTRIM(Code2)+ALLTRIM(Code3),ALLTRIM(Name),0) ENDSCANsomething like this (not tested)