请教老师，下面这段代码，想实现项目属地的归类分组统计

最终的临时表结构应该是

电压等级    大理地区  大理地区占比   昆明地区   昆明地区占比   .......

100kV           1           50%             1                  50%   

32kV             2           66.67%        1                  33.33%  

.........       

Dim b As New SQLGroupTableBuilder("统计表00004","投标评价")  \'20160930
b.C
  \'b.Groups.AddDef("项目属地")
b.Groups.AddDef("电压等级")
b.Totals.AddExp("项目属地0","项目属地 Like \'大[*]%\'","大理地区",AggregateEnum.Count)
b.Totals.AddExp("项目属地1","项目属地 Like \'昆[*]%\'","昆明地区",AggregateEnum.Count)

b.Filter = "投标日期 >= #" & e.Form.Controls("DateTimePicker1").Value & "# And 投标日期 <= #" & e.Form.Controls("DateTimePicker2").Value & "# and 投标结果 Like \'%项目中标%\'"
b.VerticalTotal = True
b.GrandProportion = True
Tables("中标测评_Table1").DataSource = b.BuildDataSource()

请老师帮忙看看，在窗口 中标测评，谢谢 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.zip

蓝老师，今天的问题，不是原来的问题，原来的方法我看懂了，现在的问题是，如何形成项目属地归类分组

比如，大理地区有10行数据，把10行数据进行count形成新的列, 昆明地区有5行数据，把5行数据进行count形成新的列, 这里的占比不是问题，问题是：

b.Totals.AddExp("项目属地0","项目属地 Like \'大[*]%\'","大理地区",AggregateEnum.Count)  这段代码没有发生作用，都全部统计出来了，请教老师指导这样的代码写法

如果另外写成DataTables("中标测评_Table1").DataCols.Add ("大理",Gettype(Double), "项目属地 Like \'%大理%\'")，也不对。