- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 垂直统计合计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86892)
-- 发布时间：2016/6/28 14:00:00
-- 垂直统计合计
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车)
请指点代码，谢谢！
[此贴子已经被作者于2016/6/28 14:13:59编辑过]
-- 发布时间：2016/6/28 14:22:00
--
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("+"))