Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共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]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.