主题：目录树的节点如何能带记录数

窗口的AfterLoad事件改为：

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.BuildTree("部门", "部门","部门<>''")
For Each nd As WinForm.TreeNode In tv.AllNodes
    nd.text = nd.Text & "(" & DataTables("姓名").Compute("Count([_Identify])","部门  = '" & nd.Text & "'") & "人)"
Next

 由于节点的Text属性已经变化，合成筛选条件的时候可以用节点的Name和FullName属性：

http://www.foxtable.com/help/topics/0898.htm

http://www.foxtable.com/help/topics/2622.htm

呵呵，你可没有白做，条条道路通罗马嘛。