主题：如何按照日期列自动生产这样的树！

在Treeview中，可以通过

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree("订单", "", "客户", "日期")

如果我想把日期列的内容自动如下：


客户1
     2009年1月
     2009年2月
      .....

客户2
     2009年1月
     2009年2月
      .....

这样的日期树代码如何呢?

好的,知道了,希望增加此功能!谢谢!

  狐表在大家的帮助下,快完美罗!

哈哈，这个肯定加不了的

'''
Dim T1,T2,T As String
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode

Dim Da As DataTable = DataTables("订单")

tr =e.Form.Controls("TreeView1")
for Each T1 in Da.GetComboListString("客户").split("|")
     nd = Tr.Nodes.Add(T1,T1)
     for Each dr As DataRow in Da.Select("客户 ='" & T1 & "'")
          T2 = format(dr("日期"),"yyyy年M月")
          if T = Nothing orelse T.Indexof(T2) = -1 Then
               nd.Nodes.Add(T2,T2)
               T = T & "," & T2
          End if
     Next
     T = Nothing
Next

试试,谢谢!