主题：目录树请教

管理费用

   工资

   福利费

   办公费

      绿化费

      报刊费

      工本费

      印刷费

      物料消耗

      软件维护费

      信息费

      会务费

      协（年）会费

      排污费

      其他

   修理费

   低值易耗品

      低值易耗品

      服装费

   差旅费

   租赁费

   保险费

   运输费

      过路过桥费

      物料消耗（汽油费）

   折旧费

   交通费

   工会经费

   教育经费

   劳动保险费

   业务招待费

   印花税

   其他税金

   科研开发费

      工资

      差旅费

      材料费

      新产品设计费

      工艺规程制订费

      设备调试费

      试验检测费

      技术图书资料费

      设备折旧费

      其他

   审计代理费用

      审计费

      律师费

      咨询费

   其他费用

      无形资产摊销

      其他

   话费

   水电费

   坏账准备

   住房公积金

   劳务费

以上列变成一级节点为管理费用，二级为工资、福利费、办公费。。等上下前面空格相同的，三级为绿化费、工本费等前面空格相同的

Dim mls As String() = {"销售人员","客户单位","型号"}  '指定生成目录树的各列

Dim kh As String() = {"'","'","'"}  '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号

Dim cs As WinForm.TreeView = e.Sender

Dim sx As String

Dim jd As WinForm.TreeNode

For Each jd In e.node.allNodes '清除子节点的选中标记

    jd.Checked = False

Next

jd = e.Node.ParentNode

Do While jd IsNot Nothing '清除父节点的选中标记

    jd.Checked = False

    jd = jd.ParentNode

Loop

For Each jd In cs.AllNodes

    If jd.Checked  Then

        Dim xjd() As String = jd.FullPath.Split("\")

        Dim val As String = ""

        For i As Integer = 0 To xjd.length - 1

            If val > "" Then

                val = val & " And "

            End If