以文本方式查看主题

-  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