主题：加载树统计错误

参照帮助文件-->SQL相关-->SQL应用实例-->在加载树显示统计数据

 

１.应用窗口时统计的数量是正确的，但不符合条件的值如何隐藏？

 

2.在窗口设计器预览时，出现错误弹窗，不知道如何避免(不想注释掉SystemIdle中的代码)

此主题相关图片如下：显示.jpg


此主题相关图片如下：错误.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

此主题相关图片如下：代码.png

      

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

1楼是用“入职日期”来显示加载树统计数据

 

我现在用“课室”、“组别”、“班别”生成统计数据

 

窗口应用时没有问题，显示的资料都是正确的，但窗口设计-->文件-->预览,又弹出“菜单的SystemIdle事件执行过程.....”，窗口一直跳出来，停不下来

 

请问：哪里需要修改？

 

另外，在目录树生成，还没有选择节点前，会显示所有人员，包括已离职的人员。

 

 

窗口　Ａfterload事件：

Dim dt As DataTable
Dim b As New SQLGroupTableBuilder("统计表1","员工名册")    '首先生成统计表
b.C     '这里是数据库名称，在论坛无法正常显示
b.Filter = "离职 = 0"
b.Groups.AddDef("课室")
b.Groups.AddDef("组别")
b.Groups.AddDef("班别")
b.Totals.AddDef("工号",AggregateEnum.Count,"工号")   '根据工号列来统计记录数,也就是人数
b.Build()
dt = DataTables("统计表1")   '生成统计表
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"课室|组别|班别")   '然后根据统计表生成目录树
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim ke As String = nd.DataRow("课室")
    Dim zu As String = nd.DataRow("组别")
    Dim ban As String = nd.DataRow("班别")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "(" & dt.Compute("Sum(工号)","课室 = '" & ke & "'" ) & "人)"
        Case 1
            nd.Text = nd.text & "(" & dt.Compute("Sum(工号)","课室 = '" & ke & "' And 组别 = '" & zu & "'" ) & "人)"
        Case 2
            nd.text = nd.text & "(" & dt.Compute("Sum(工号)","课室 = '" & ke & "' And 组别 = '" & zu & "' And 班别 = '" & ban & "'" )  & "人)"
    End Select
Next
trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(工号)") & "人)",0)
trv.ResumeRedraw

 

 

目录树　ＮodeMouseClick事件：

Dim Filter As String = "离职日期 is null "
If e.Node.Name <> "加载所有行" Then   '要用Name属性,不能用Text属性
    Dim ke As String = e.Node.DataRow("课室")
    Dim zu As String = e.Node.DataRow("组别")
    Dim ban As String = e.Node.DataRow("班别")
    Select Case e.Node.Level
        Case 0
            Filter = "课室 = '" & ke & "'and 离职日期 is null"
        Case 1
            Filter = "课室 = '" & ke & "' and 组别 = '" & zu & "'"
        Case 2
            Filter = "课室 = '" & ke & "' and 组别 = '" & zu & "'and 班别 = '" & ban & "'"
    End Select
End If
DataTables("员工名册").LoadFilter = filter
DataTables("员工名册").Load()

 你的Table1控件弄成副本表了吗？不要主表。

Table1 控件

作为副本：False

允许编辑：True

 

另外，在目录树生成，还没有选择节点前，会显示所有人员，包括已离职的人员。

此主题相关图片如下：table1.jpg

作为副本，设置成true

 

第二个问题，afterLoad事件加入代码

 

DataTables("员工名册").LoadFilter = "离职日期 is null "
DataTables("员工名册").Load()

问题解决，非常感谢。

 

Foxtable是个好软件~！