标题：帮忙看下这个固定格式统计

想请教下

1是代码出错不能统计

2是按分类小计的代码该如何写呢

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("仓库")
If e.DataCol.Name = "产品名称" And dr.IsNull("产品名称") = False Then
    dr("状态_y") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "'" And "[状态] = '" & dr("状态_y") & "=y""'")
    dr("状态_n") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "'"And "[状态] = '" & dr("状态_n") & "=n""'")
 End If

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

点击浏览该文件:管理项目2.table

正确的：

Select Case e.DataCol.name
    Case "产品名称"
        Dim dr As DataRow = e.DataRow
        Dim dt As DataTable =DataTables("仓库")
        If dr.IsNull("产品名称") = False Then
            dr("状态_y") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "' And [状态] = 'y'")
            dr("状态_n") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "' And [状态] = 'n'")
        End If
End Select

如果要分类小计，统计表也得加上分类列。