主题：[求助] 这样的 列形式 如何生成【目录树】

这个可以一步到位，使用存储过程，呵呵
 

字段FKMCode,FKMName,FKMLevel（科目代码，科目名称，科目级别） 表名 TB_KM，构造如下临时数据表

Select a.FKMCode1,FKMName1,a.FKMCode2,FKMName2,FKMCode3, FKMName3

from

(

  Select a.FKMCode1,FKMName1,FKMCode2,FKMName2

  from

     (

     Select FKMCode FKMCode1,FKMName FKMName1

     from TB_KM where FKMLevel=1

     )a

  Left Join

     (

     Select substring(FKMCode,1,4) FKMCode1,

          FKMCode FKMCode2,FKMName FKMName2,FKMLevel FKMLevel2

      from TB_KM where FKMLevel=2

     )b

  on a.FKMCode1=b.FKMCode1

)a

left join

(

  Select substring(FKMCode,1,4) FKMCode1,substring(FKMCode,1,7) FKMCode2,

        FKMCode FKMCode3,FKMName FKMName3,FKMLevel FKMLevel3

  from TB_KM where FKMLevel=3

)b

on a.FKMCode1=b.FKMCode1 and a.FKMCode2=b.FKMCode2

不是三言两语能说得清的

你传个文件来，我给你搞定

因为不支持复杂的嵌套语句，只能采用存储过程，外挂只能选择SQL Server数据库，请您自己完成数据库，

 

Select a.科目代码1,科目名称1,a.科目代码2,科目名称2,科目代码3, 科目名称3

from

(

  Select a.科目代码1,科目名称1,科目代码2,科目名称2

  from

     (

     Select 科目代码 科目代码1,科目名称 科目名称1

     from T_ACCOUNT where 科目级别=1

     )a

  Left Join

     (

     Select substring(科目代码,1,4) 科目代码1,

          科目代码 科目代码2,科目名称 科目名称2,科目级别 科目级别2

      from T_ACCOUNT where 科目级别=2

     )b

  on a.科目代码1=b.科目代码1

)a

left join

(

  Select substring(科目代码,1,4) 科目代码1,substring(科目代码,1,7) 科目代码2,

        科目代码 科目代码3,科目名称 科目名称3,科目级别 科目级别3

  from T_ACCOUNT where 科目级别=3

)b

on a.科目代码1=b.科目代码1 and a.科目代码2=b.科目代码2

将以上代码建立一个存储过程，然后

Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText ="Excute 存储过程名"
dt = cmd.ExecuteReader()
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree(dt, "", "科目名称1", "科目名称2", "科目名称3")