For Each s As String In DataTables("员工信息").GetValues("户籍地") If s = Nothing Then Dim c = DataTables("员工信息").compute("count(_Identify)", "户籍地 is null") n.Nodes.Add(s, s & "(" & c & ")") Else Dim c = DataTables("员工信息").compute("count(_Identify)", "户籍地='" & s & "'") n.Nodes.Add(s, s & "(" & c & ")") End If Next