treeview数据库加载节点

        使用递归法.
          函数如下(有些地方使用了自定义函数,自己用的时候可以修改一下):

          '/树操作基本参数列表.            Type   BaseParameter
                    Cnn   As   ADODB.Connection   'ADODB   连接
                    TrvName   As   Object               '树名称.
                    TabName   As   String               '树对应的数据表名
                    ParFld   As   String                 '数据表中父节点的字段名.
                    ChildFld   As   String             '数据表中子节点的字段名.
                    TextFld   As   String               '数据表中节点文本名称的字段名.
                    RootIco   As   String               '树中根目录的图标号.
                    Parico   As   String                 '树中父节点的图标号.
                    ExpParIco   As   String           '树中展表一个节点时的图标号.
                    ChildIco   As   String             '树中子节点的图标号.
                    RootText   As   String             '树中根节点的文件.
          End   Type

          Dim   TrvBasePar   As   BaseParameter

          '
          '单表填充TREEVIEW
          '函数:FillTreeView
          '参数:SelectSql   一条没有WHERE条件表达式的SELECT语句.
          '返回值:
          '说明：SELECT语句中必须包括三项:父节点的字段名,子节点的字段名.节点的标签字段名
          '             所有节点的KEY值是:G   +   节点的ID号.Text值是:节点的标签名.
          Public   Function   FillTreeView(SelectSql   As   String)
                                          If   TrvBasePar.TrvName   Is   Nothing   Then
                                                Exit   Function
                                          End   If
                                          Call   FillTree("",   "",   SelectSql)
          End   Function