以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用单列时间列作为目录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162147)
--  作者：2425004926
--  发布时间：2021/4/7 10:52:00
--  [求助]用单列时间列作为目录
 用时间列作为目录，会出错     有时出现示空白      有时提示错误无法在 System.DateTime 和 System.String 上执行“=”操作。什么好的思路？
[此贴子已经被作者于2021/4/7 10:55:50编辑过]
--  作者：有点蓝
--  发布时间：2021/4/7 10:59:00
--  
格式化一下日期，不要出现特殊符号：http://www.foxtable.com/webhelp/topics/0362.htm
--  作者：2425004926
--  发布时间：2021/4/7 11:52:00
--  
老师帮忙在看看，以下代码测试没有成功，怎么改呀？
         If dt.datacols(”日期时间“).Isdate Then
            For Each nd As WinForm.TreeNode In trv.AllNodes
                trv.BuildTree(dt, 日期时间)
                Dim name As String = nd.text
                nd.Text = Format(nd.text, "f")
                nd.Text = nd.text & "(" & dt.Compute("Sum(数量)", "[日期时间] = \'" & name & "\'") & ")"
            Next
         end if
--  作者：有点蓝
--  发布时间：2021/4/7 12:00:00
--  
不需要改目录树节点。

用时间列作为目录  -  这个代码在哪里，在这里改。还是说这个所谓的目录不是指文件夹，而是其它什么东西？截图说明一下
--  作者：2425004926
--  发布时间：2021/4/7 13:25:00
--  
 试验成功了，谢谢！
                trv.BuildTree(dt, 日期时间)
         If dt.datacols(”日期时间“).Isdate Then
            For Each nd As WinForm.TreeNode In trv.AllNodes
                Dim name As String = nd.text
                nd.Text = nd.text & "(" & dt.Compute("Sum(数量)", "[日期时间] = \'" & name & "\'") & ")"
            Next
         end if