主题：关于如何对无规格的物品进行统计

 请教，库存数量表中对无规格的物品如何进行统计？我试了很多语句都不行，现在已经解决按不同规格进行统计。
多谢！

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

点击浏览该文件:不入库系统物品领用.table

 

 我设了，是三个表都设吗？

入库表：
If e.DataCol.name="期初入库数量" Then
    If e.DataRow.IsNull("物品名称")=False AndAlso e.DataRow.IsNull("规格")=False Then
     Dim dr As DataRow =  DataTables("库存数量").Find("物品名称='" & e.DataRow("物品名称") & "' and 规格 = '" & e.DataRow("规格") & "'")
     If dr IsNot Nothing Then
       dr("期初入库数量")=e.DataTable.Compute("sum(期初入库数量)","物品名称='" & e.DataRow("物品名称") & "' and 规格 = '" & e.DataRow("规格") & "'")
    If e.DataRow.IsNull("规格")=Ture Then
dr("期初入库数量")=e.DataTable.Compute("sum(期初入库数量)","物品名称='" & e.DataRow("物品名称") & "' and 规格 = '" & e.DataRow("规格") & "'")

     End If
     End If
    End If
End If


领用表：
If e.DataCol.name="领用数量" Then
    If e.DataRow.IsNull("物品名称")=False AndAlso e.DataRow.IsNull("规格")=False Then
     Dim dr As DataRow =  DataTables("库存数量").Find("物品名称='" & e.DataRow("物品名称") & "' and 规格 = '" & e.DataRow("规格") & "'")
     If dr IsNot Nothing Then
       dr("领用数量")=e.DataTable.Compute("sum(领用数量)","物品名称='" & e.DataRow("物品名称") & "' and 规格 = '" & e.DataRow("规格") & "'")
 
If e.DataRow.IsNull("规格")=Ture Then
dr("期初入库数量")=e.DataTable.Compute("sum(期初入库数量)","物品名称='" & e.DataRow("物品名称") & "' and 规格 = '" & e.DataRow("规格") & "'")

     End If

    End If
    End If
End If

库存数量表：
Select Case e.DataCol.Name
        Case "物品名称"
        Dim Filter As String = "物品名称 = " & e.DataRow("物品名称")
        e.DataRow("期初入库数量") = DataTables("入库表").Compute("Sum(期初入库数量)", Filter)
        e.DataRow("领用数量") = e.DataRow("领用表") - e.DataRow("领用数量")
        
        Case "规格"
        If e.DataRow.IsNull("规格")=Ture Then
        e.DataRow("期初入库数量") = DataTables("入库表").Compute("Sum(期初入库数量)", Filter)
        e.DataRow("领用数量") = e.DataRow("领用表") - e.DataRow("领用数量")

End Select