主题：垂直统计合计

Dim b As New CrossTableBuilder("统计表1",sq1, "数据库")
b.HGroups.AddDef("学期","车次")  '添加客户列用于水平分组
b.VGroups.AddDef("车次") '添加产品列用于垂直分组
b.Totals.AddDef("可乘人数")
Tables("可乘人数_Table1").DataSource = b.BuildDataSource()
Tables("可乘人数_Table1").AutoSizeCols()
Tables("可乘人数_Table1").Current("车次")="可乘人数"

统计结果如下图：

 

此主题相关图片如下：qq截图20160628133202.png

 

 With DataTables("可乘人数_Table1").DataCols  '用表达式列计算库存数据
    .Add("可乘合计",Gettype(Integer), "IsNull([？],0) + IsNull([？],0)")
End With

可乘人数 = 浙A9L916(第1车) + 浙A9L916(第2车) + 浙A9L916(第3车)

请指点代码，谢谢！

Dim str As String = ""
For Each c As Col In Tables("可乘人数_Table1").cols
    If c.Caption Like "浙*" Then
        str &= "IsNull(" & c.name & ",0)+"
    End If
Next
msgbox(str.trim("+"))