带统计的目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我在实例中实现了按日期带统计的目录树，还需要不按日期，例如按姓名，也带统计的目录树，请指导。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:病案管理系统.foxdb

窗口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

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

老师，可以了。我还想在姓名后面增加一列目录（编号），怎么增加呢？我自己试验了没搞定。

统计表生成的时候没有编号，无法添加，下面代码放到命令窗口执行就知道了

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()

多谢老师指点，都行了，谢谢！

老师，请教：点击按姓名检索以后，统计正常，但是点击“显示所有行

下载信息 [文件大小：下载次数： ]
点击浏览该文件:病案管理系统.foxdb

”的时候提示错误，不能显示；还有，新建的项目怎么不用密码就运行呢？我没进行相关的设置。

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

新项目默认是不需要登录的，如果需要，要改用户密码。

主题：带统计的目录树