树形节点目录

 最简单的方法，在treeview   的int   中先加节点
thisform.Olecontrol1.LineStyle=1
thisform.Olecontrol1.style=7
=thisform.Olecontrol1.nodes.add(,, "xmdi ", "Î÷Ò© ")
=thisform.Olecontrol1.nodes.add( "xmdi ",4, "i ", "¿¹¸ÐȾҩÎï ")
=thisform.Olecontrol1.nodes.add( "i ",4,, "Ò½±£(I) ")
=thisform.Olecontrol1.nodes.add( "i ",4,, "·ÇÒ½±£(I) ")
=thisform.Olecontrol1.nodes.add( "i ",4,, "ÆäËü(I) ")
=thisform.Olecontrol1.nodes.add( "xmdi ",4, "t ", "¿¹Ö×ÁöÒ©Îï ")
=thisform.Olecontrol1.nodes.add( "t ",4,, "Ò½±£(T) ")

然后，在treeview的nodeclick中添加选中节点触发的code
do   case  
    CASE   NODE.TEXT= "Ò©Æ· "
          SELE   *   FROM   DATA\Ò©Æ·×Öµä±í   INTO   TABLE   DATA\KK
    case   node.text= "Î÷Ò© "
            sele   *   from   data\Ò©Æ·×Öµä±í   where   SUBS(MEDIC_CODE,2,1)= 'X '   OR   SUBS(MEDIC_CODE,2,1)= '2 '   INTO   TABLE   DATA\KK
........
endcase