Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[大类] = '" & dr("大类") & "'"
e.Form.Controls("显示").text = "当前人数: " & Tables("表A").Compute("count(编号)"), "大类= '" & dr("大类") & "'" & " 人"
Case 1
Filter = "[大类] = '" & dr("大类") & "' And [二类] = '" & dr("二类") & "'"
e.Form.Controls("显示").text = "当前人数: " & Tables("表A").Compute("count(编号)"), "大类 = '" & dr("大类") & "' And 二类 = '" & dr("二类") & "'" & " 人"
Case 2
Filter = "[大类] = '" & dr("大类") & "' And [二类] = '" & dr("二类") & "' And [三类] = '" & dr("三类") & "'"
e.Form.Controls("显示").text = "当前人数: " & Tables("表A").Compute("count(编号)"), "大类 = '" & dr("大类") & "' And 二类 = '" & dr("二类") & "' And 三类 = '" & dr("三类") & "'" & " 人"
End Select
End If
Tables("表A").Filter = Filter
老师，如果我想在窗口上显示节点数据，请教一下怎么写代码？
加好友 
发短信
Post By：2023/9/27 13:23:00 [只看该作者]
