以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  显示统计数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62748)
--  作者：地瓜
--  发布时间：2015/1/7 14:45:00
--  显示统计数据
刚设计了一个加载树的窗体，
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150107144422.jpg
图片点击可在新窗口打开查看
想要实现的效果如下：目录树的跟目录是“显示所有行”，紧接着是按年份，年份的下一级是按“单位类别”，单位类别的下一级是“单位名称”，单位名称的下一级是“季度”
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150107144711.png
图片点击可在新窗口打开查看，像这样的效果。谢谢！
--  作者：Bin
--  发布时间：2015/1/7 14:47:00
--  
参考http://www.foxtable.com/help/topics/2741.htm

搞不定就上个例子
--  作者：地瓜
--  发布时间：2015/1/7 15:08:00
--  
确实是搞不定了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
谢谢！
--  作者：Bin
--  发布时间：2015/1/7 15:15:00
--  
复制帮助的代码,稍微改改
搞定
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


不要拿着就跑,尝试看下,理解一下.
--  作者：有点甜
--  发布时间：2015/1/7 15:19:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("tblcgjh", "dwlb|cgdw|jd")

For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim dr As DataRow = nd.DataRow
    If nd.Level = 0 Then
        nd.Text = dr("dwlb") & "(" & DataTables("tblcgjh").Compute("count(dwlb)", "dwlb = \'" & dr("dwlb") & "\'") & ")"
    Else If nd.Level = 1 Then
        nd.Text = dr("cgdw") & "(" & DataTables("tblcgjh").Compute("count(dwlb)", "dwlb = \'" & dr("dwlb") & "\' and cgdw = \'" & dr("cgdw") & "\'") & ")"
    Else If nd.Level = 2 Then
        nd.Text = dr("jd") & "(" & DataTables("tblcgjh").Compute("count(dwlb)", "dwlb = \'" & dr("dwlb") & "\' and cgdw = \'" & dr("cgdw") & "\' and jd = \'" & dr("jd") & "\'") & ")"
    End If
Next

trv.Nodes.Insert("显示所有行",0)
--  作者：地瓜
--  发布时间：2015/1/7 15:23:00
--  foxtable版本太高了
我的是foxtable2014版的，打不开了。
--  作者：地瓜
--  发布时间：2015/1/7 16:12:00
--  
我参考着http://www.foxtable.com/help/topics/2741.htm添加了一个按年来统计的，可是无法将date类型转换成integer类型的。谢谢！
--  作者：有点甜
--  发布时间：2015/1/7 16:14:00
--  
 无语，5楼。