主题：自动统计

直接填充好了

Dim f As New Filler
f.SourceTable = DataTables("成绩")
f.SourceCols = "学校代码,单位名称,年级代码,班级"
f.DataTable = DataTables("统表")
f.DataCols = "学校代码,单位名称,年级代码,班级"
f.ExcludeExistValue = True
f.ExcludeNullValue = True
f.Fill()