在”仓库“表中，判断”进货“表中的进货类别是：进货或退货、”销售“表中的销售类别是：销售或退货或赠送或报废  来计算仓库库存数量：包。即

    1、包=包1（进货类别为进货时）-包1（进货类别是退货时）-包2（销售类别是销售时）-包2（销售类别是赠送时）-包2（销售类别是报废时）+包2（销售类别是退货时）

  2、同时计算：件=包\\规格，零包=包/规格的余数

下面的代码执行后，提示：编译错误，应为语句结束，

不知错在那里了

Select Case e.DataCol.Name

    Case "产品代码"

        Dim Filter As String = "产品代码= " & e.DataRow("产品代码")

        e.DataRow("包") = DataTables("进货明细").Compute("Sum(包1)", Filter & " And 进货类别 = 进货"))-DataTables("进货明细").Compute("Sum(包1)", Filter & " And 进货类别 = 退货"))-DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 销售"))-DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 赠送"))-DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 报废"))+DataTables("销售明细").Compute("Sum(包2)", Filter & " And 销售类别 = 退货"))

   End If

End Select

   是否可以帮完善一下，多谢！

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

点击浏览该文件:管理项目1.table