以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何按照日期列自动生产这样的树！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1800)
--  作者：woodiy
--  发布时间：2009/2/13 16:06:00
--  如何按照日期列自动生产这样的树！

在Treeview中，可以通过

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

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


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

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

这样的日期树代码如何呢?
--  作者：狐狸爸爸
--  发布时间：2009/2/13 16:08:00
--  
没有办法，自己编写代码，一个一个添加。
--  作者：woodiy
--  发布时间：2009/2/13 16:13:00
--  

好的,知道了,希望增加此功能!谢谢!
--  作者：blackzhu
--  发布时间：2009/2/13 16:38:00
--  
以下是引用woodiy在2009-2-13 16:13:00的发言：

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

  狐表在大家的帮助下,快完美罗!
--  作者：狐狸爸爸
--  发布时间：2009/2/13 17:01:00
--  
以下是引用woodiy在2009-2-13 16:13:00的发言：

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


哈哈，这个肯定加不了的
--  作者：don
--  发布时间：2009/2/13 17:02:00
--  
以下是引用woodiy在2009-2-13 16:13:00的发言：

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

\'\'\'
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

[此贴子已经被作者于2009-2-13 18:05:34编辑过]
--  作者：woodiy
--  发布时间：2009/2/13 19:48:00
--  

试试,谢谢!