共7 条记录, 每页显示 10 条, 页签: [1]

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

1楼

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月
      .....

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

2楼

狐狸爸爸 发表于：2009/2/13 16:08:00

没有办法，自己编写代码，一个一个添加。

3楼

woodiy 发表于：2009/2/13 16:13:00

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

4楼

blackzhu 发表于：2009/2/13 16:38:00

以下是引用woodiy在2009-2-13 16:13:00的发言：

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

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

5楼

狐狸爸爸 发表于：2009/2/13 17:01:00

以下是引用woodiy在2009-2-13 16:13:00的发言：

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

哈哈，这个肯定加不了的

6楼

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编辑过]

7楼

woodiy 发表于：2009/2/13 19:48:00

试试,谢谢!

共7 条记录, 每页显示 10 条, 页签: [1]