以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐爸帮忙一下，其中代码有错误，我不知道怎么调试  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19607)
--  作者：martinlong
--  发布时间：2012/5/15 22:40:00
--  狐爸帮忙一下，其中代码有错误，我不知道怎么调试

Dim Dt As List(of String) = DataTables("项目列表").GetUniqueValues("","项目名称")
Dim Days As List(of String)
Dim ND As WinForm.TreeNode
Dim ca As String
Dim tree As WinForm.TreeView = e.Form.Controls("TreeView1")


For Each DS As String In Dt
   ND= Tree.Nodes.Add(DS)


Days = DataTables("项目列表").GetUniqueValues("[项目名称]=DS " ,"项目起始日期")


For Each Day As Date In Days

   ND.NODES.Add(DAY)

Next

Next

 

想实现代码自动生成目录树，因为代码

e.Form.Controls("TreeView1").BuildTree("项目列表", "项目名称|项目起始日期")

生成的目录树中日期中带有时间，无法去除，只好自己硬着头写上面的代码了，但是调不出来，只好请狐爸帮个忙了。

 

谢谢狐爸了

 
--  作者：狐狸爸爸
--  发布时间：2012/5/15 22:49:00
--  

例如：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("订单","产品|日期")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        nd.text = Format(cdate(nd.text),"yyyy-MM-dd")
        nd.Name = nd.Text
    End If
Next
trv.ResumeRedraw
--  作者：martinlong
--  发布时间：2012/5/15 22:55:00
--  
谢谢