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、包=包1(进货类别为进货时)-包1(进货类别是退货时)-包2(销售类别是销售时)-包2(销售类别是赠送时)-包2(销售类别是报废时)+包2(销售类别是退货时)
上面的代码执行后,提示:编译错误,应为语句结束,
不知错在那里了
[此贴子已经被作者于2013-3-25 14:29:48编辑过]