主题：求助:“手工编码统计”遇惑,请老师释疑

 问题1.增加二级标题后,如何手工编码统计?

示例一

假定要下面这样一个成绩表：

我们需要统计每一个科目的成绩分布范围，例如60分以下，60分以上，70分以上等等范围的人数。
首先建议一个数据表，因为考试的科目是固定的，所以这里我们不用临时表，而用数据表，设计好表之后，手工输入科目：

然后将这个表的DataColChanged设为：

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("学生成绩")
If e.DataCol.Name = "科目" And e.DataRow.IsNull("科目") = False Then
    e.DataRow("分布_60分以下") = dt.Compute("Count(姓名)", dr("科目") & " < 60")
    e.DataRow("分布_60分以上") = dt.Compute("Count(姓名)", dr("科目") & " >= 60 And " & dr("科目") & " < 70" )
    ……

……

End If

请问:如果成绩表中有二级标题（如下表格式）,上段语句该如何修改？

班级	姓名	语文	数学	英语
		成绩	成绩	成绩

 

 

问题2、双引号与连接符问题

示例三

还是统计不同产品的销售数量和金额，不过我们这次全部用一段代码完成。
将下面的代码复制到命令窗口执行即可：

'生成统计表
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", GetType(String), 32)
dtb.AddDef("数量", GetType(Integer))
dtb.AddDef("金额", GetType(Double))
dtb.Build()
'填充数据
dim f As New Filler
f.SourceTable = DataTables("订单")
f.SourceCols = "产品"
f.DataTable = DataTables("统计")
f.DataCols = "产品"
f.Fill()
'统计
For Each dr As Datarow In DataTables("统计").DataRows
    dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
    dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
Next
MainTable= Tables("统计")

请问: " & dr("产品") & "代码中外围用“双引号”和“&…&”不解,这里涉及到相关知识?

谢谢两位指点！FOXTABLE统计比易表优势很多，标题行可任意变化，列名不变，程序不变也能统计数据。