主题：关于统计图

''图表1
'生成各单位人数临时表
Dim b As New GroupTableBuilder("人数统计表1",DataTables("person"))
Dim t As DataTable
b.Groups.AddDef("organName","单位")
b.Totals.AddDef("organName",AggregateEnum.Count,"人数")
'b1.FromServer = True
t=b.Build() '生成统计表

''增加标记列 这个是为了X轴单位按照顺序排列,发现,名称是顺序排列了,数字确对不上
t.DataCols.Add("标记", Gettype(String)) ''增加标记列
For i As Integer = t.DataRows.count-1 To 0 Step -1
    r("单位")=r("单位").Replace(" ","")
    Dim dr2  As  DataRow
    dr2 =  DataTables("organList").Find("[organName] = '" & r("单位") & "'" ) '否则在单位表查找同名的单位行,将找到的行赋值给变量dr
    If dr2 IsNot Nothing Then  '如果找到了同名的单位行,也就是dr不是Nothing
        If dr2("fuZhu").length < 6 Then
            r("标记")= dr2("fuZhu")
        End If
        r("人数") = t.Compute("sum(人数)", "标记 like '" & dr2("fuZhu") & "%'")
    End If
Next
Tables("人数统计表1").Sort="标记"
t.DeleteFor("标记 is null")