主题：[求助]库存应该怎么做代码实现?

库存货品编码的DataColChanged事件:

If e.DataCol.Name = "货品编码" Then 

    If e.DataRow.IsNull("货品编码") Then 

        e.DataRow("当前库存") = Nothing 

    Else 

        Dim fl As String = "货品编码 = '" & e.NewValue & "'"

        e.DataRow("当前库存") = DataTables("入库明细").Compute("Sum(数量)",fl)+DataTables("退货明细").Compute("Sum(数量)",fl)-DataTables("出库明细").Compute("Sum(出库数量)",fl)

    End If

End If

注:出库明细的货品编号列名改为货品编码

入库及出库,退货的DataColChanged事件留给你自己做做