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

想请教下

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