主题：百分比问题

Dim b1 As New SQLCrossTableBuilder("统计表2","门市客户信息")

b1.C

b1.HGroups.AddDef("心理价位") '根据价位区间分组

b1.VGroups.AddDef("服务需求","服务需求_{0}") 

b1.Totals.AddDef("客户名称",AggregateEnum.Count)

b1.Filter = "进店日期 >= #" & e.Form.Controls("DateTimePicker20").Value & "# And 进店日期 <= #" & e.Form.Controls("DateTimePicker02").Value & "#"

b1.HorizontalTotal = True

b1.VerticalTotal = True

b1.HorizontalProportion = True

For Each da As DataCol In Tables("主窗口_Table6").DataTable.DataCols

    If da.Caption.Contains("份额") Then

        da.SetFormat("#0.00%")

    End If

Next

Tables("主窗口_Table6").DataSource = b1.BuildDataSource()