主题：能否筛选后显示人数，而非显示所有数据

能否筛选后显示人数，而非显示所有数据

成员信息_AfterLoad

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("成员信息", "中小学|班级|性别")

 

For Each nd As WinForm.TreeNode In trv.AllNodes

    Dim filter As String = ""

    If nd.Level = 0 Then

        filter = "中小学 = '" & nd.DataRow("中小学") & "'"

    ElseIf nd.Level = 1 Then

        filter = "中小学 = '" & nd.DataRow("中小学") & "' and 班级 = '" & nd.DataRow("班级") & "'"

    ElseIf nd.Level = 2 Then

        filter = "中小学 = '" & nd.DataRow("中小学") & "' and 班级 = '" & nd.DataRow("班级") & "' and 性别 = '" & nd.DataRow("性别") & "'"

    End If

    Dim sum = DataTables("成员信息").Compute("count(_Identify)", filter)

    nd.Text = nd.Name & "(" & sum & "人)"

Next

 

Dim d = trv.Nodes.Insert("显示所有行", 0)

d.text = d.name & "(" & DataTables("成员信息").Compute("count(_Identify)") & "人)"

 

成员信息_Button5_Click

Tables("成员信息").DataTable.Load

Tables("成员信息").OpenFilterTree("性别|班级")

 

成员信息_TreeView1_NodeMouseClick

 

Dim Filter As String = ""

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.name <> "显示所有行" Then

    Select Case e.Node.Level

        Case 0

            Filter = "[中小学] = '" & dr("中小学") & "'"

        Case 1

            Filter = "[中小学] = '" & dr("中小学") & "' And [班级] = '" & dr("班级") & "'"

        Case 2

            Filter = "[中小学] = '" & dr("中小学") & "' And [班级] = '" & dr("班级") & "' And [性别] = '" & dr("性别") & "'"

    End Select

End If

Tables("成员信息").Filter = Filter

 

 

没看懂。截图说明一下

如图 点击按性别或 班级筛选后      左边的数字变动

按钮里重新调用AfterLoad里的代码，重新生成目录树