字符列的条件要用单引号引起来
...... Select Case nd.Level
Case 0
nd.Text = nd.text & "分公司(" & dt.Compute("Sum(人数)","分公司 = '" & Area & "'") & "人)"
Case 1
nd.Text = nd.text & "级别(" & dt.Compute("Sum(人数)","分公司 = '" & Area & "' And 级别 = '" & Lev & "'") & "人)"
Case 2
nd.Text = nd.text & "(" & nd.DataRow("人数") & "条)"
End Select
......