想请教下

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

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