[求助] 自动计算库存公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As Row = Tables("材料出入库登记表").Current
Dim pr As DataRow
Dim i1,i2,i3,i4,i5,i6,i7 As Integer
pr = DataTables("材料库存汇总表").Find( "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'" )
If pr IsNot Nothing Then
    Dim s As String = "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'"

    i1 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='出库'")
    i2 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修'")
    i3 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='报废'")
    i4 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='请领入库'")
    i5 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修入库'")
    i6 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='缩容入库'")
    i7 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='入库'")
    pr("库存数量") = i7+i6+i5+i4-i3-i2-i1

End If

主题：[求助] 自动计算库存公式