Dim sb As new StringBuilder Dim bms As List(of String) = DataTables("人员").GetUniqueValues("","二级部门") For Each bm As String In bms Dim nms As List(of String) = DataTables("人员").GetUniqueValues("二级部门 = '" & bm & "'", "姓名" ) sb.Append(bm & " " & nms.Count & "人") For Each nm As String In nms sb.append(" " & nm) Next sb.AppendLine("") Next bms = DataTables("人员").GetUniqueValues("","部门") For Each bm As String In bms sb.Append(bm & DataTables("人员").Compute("Count([_Identify])","部门 = '" & bm & "'")) Next output.show(sb.Tostring)
|