- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 带统计的目录树 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139252)
-- 发布时间：2019/8/9 7:42:00
-- 带统计的目录树
老师，我在实例中实现了按日期带统计的目录树，还需要不按日期，例如按姓名，也带统计的目录树，请指导。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:病案管理系统.foxdb |
-- 发布时间：2019/8/9 8:49:00
--
窗口afterload
\'首先生成统计表
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("病案检索表"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
b.Groups.AddDef("姓名")
b.Totals.AddDef("编号",AggregateEnum.Count,"次数") \'根据客户列来统计记录数,也就是订单数
dt = b.Build(True) \'参数设置为True,生成一个临时表,不在主界面显示
\'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "姓名")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Year As Integer = nd.DataRow("年")
Dim Month As Integer = nd.DataRow("月")
Dim Product As String = nd.DataRow("姓名")
Select Case nd.Level
Case 0
nd.Text = nd.text & "(" & dt.Compute("Sum(次数)","姓名 = \'" & Product & "\'") & "次)"
End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(次数)") & "次)",0)
trv.ResumeRedraw
树NodeMouseClick
Dim Filter As String = ""
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[姓名] = \'" & e.Node.DataRow("姓名") & "\'"
End Select
End If
Tables("按姓名检索_Table1").Filter = Filter
-- 发布时间：2019/8/9 11:28:00
--
老师，可以了。我还想在姓名后面增加一列目录（编号），怎么增加呢？我自己试验了没搞定。
-- 发布时间：2019/8/9 11:47:00
--
统计表生成的时候没有编号，无法添加，下面代码放到命令窗口执行就知道了
Dim b As New GroupTableBuilder("统计表1",DataTables("病案检索表"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
b.Groups.AddDef("姓名")
b.Totals.AddDef("编号",AggregateEnum.Count,"次数") \'根据客户列来统计记录数,也就是订单数
b.Build()
-- 发布时间：2019/8/9 14:51:00
--
多谢老师指点，都行了，谢谢！
-- 发布时间：2019/8/20 8:03:00
--
老师，请教：点击按姓名检索以后，统计正常，但是点击“显示所有行
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:病案管理系统.foxdb |
”的时候提示错误，不能显示；还有，新建的项目怎么不用密码就运行呢？我没进行相关的设置。
-- 发布时间：2019/8/20 9:10:00
--
Dim Filter As String = ""
If e.Node.Name <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[姓名] = \'" & e.Node.DataRow("姓名") & "\'"
Case 1
Filter = "[就诊卡号] = \'" & e.Node.DataRow("就诊卡号") & "\'"
End Select
End If
Tables("按姓名检索_Table1").Filter = Filter
新项目默认是不需要登录的，如果需要，要改用户密码。