以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  带统计的多级目录树问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142153)

--  作者:15666282205
--  发布时间:2019/10/19 20:09:00
--  带统计的多级目录树问题
老师,您看看实例。打开后显示的目录树,统计性别不行,请指教。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:病案管理系统.foxdb



--  作者:有点酸
--  发布时间:2019/10/19 22:18:00
--  
            nd.Text = nd.text & "月(" & dt.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And  性别 = \'" & nd.Text & "\'") & ")"
--  作者:15666282205
--  发布时间:2019/10/20 21:03:00
--  
老师,我试了,还是不行。
--  作者:有点蓝
--  发布时间:2019/10/20 21:13:00
--  

NodeMouseClick事件


    Dim Product As String = e.Node.DataRow("性别")


窗口afterload事件


        Case 2

            nd.Text = nd.text & "(" & dt.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And  性别 = \'" & nd.Text & "\'") & ")"


--  作者:15666282205
--  发布时间:2019/10/20 21:56:00
--  
行了,谢谢,蓝老师。
--  作者:15666282205
--  发布时间:2019/10/20 22:12:00
--  
老师,在另一个项目里,还需要增加两级目录,比如年龄 、类型,怎样加呢?
--  作者:有点蓝
--  发布时间:2019/10/20 22:25:00
--  
完全同样的方法
--  作者:15666282205
--  发布时间:2019/10/21 8:24:00
--  
我也知道方法差不多,我也试了。问题在于加case3下面的那一行代码时,后面怎么加上一个目录。我模仿着试了好多次都不行,还请您示范一下,帮助也找不到。
--  作者:有点蓝
--  发布时间:2019/10/21 8:36:00
--  
把您模仿的代码贴出来
--  作者:15666282205
--  发布时间:2019/10/21 13:41:00
--  
老师,还是用这个实例吧,您看看。我改了代码以后目录树不显示了。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:病案管理系统.foxdb