以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于如何对无规格的物品进行统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33690)
--  作者：josieli
--  发布时间：2013/5/22 17:37:00
--  关于如何对无规格的物品进行统计
 请教，库存数量表中对无规格的物品如何进行统计？我试了很多语句都不行，现在已经解决按不同规格进行统计。
多谢！
--  作者：Bin
--  发布时间：2013/5/22 17:40:00
--  
 条件设为  "规格 is null"  即可
--  作者：josieli
--  发布时间：2013/5/23 9:34:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:不入库系统物品领用.table

 
--  作者：josieli
--  发布时间：2013/5/23 9:44:00
--  
 我设了，是三个表都设吗？

入库表：
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
--  作者：Bin
--  发布时间：2013/5/23 9:51:00
--  
.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:不入库系统物品领用.table