正确的:
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
如果要分类小计,统计表也得加上分类列。