主题：[原创]这个库存的表达式怎么写代码呢？

我建立一个进出库流水记录表，在这个表中涉及的列有：客户名称、货物种类、进出库分类、吨位、库存

这个代码怎么写呢？求助~~~

如果输入的客户名称、货物种类以前没有

那么库存=吨位

如果输入的客户名称、货物种类有一样的 那么

如果进出库分类是进库

那么库存=上一次库存数据+本行“吨位”

如果进出库分类是出库

那么库存=上一次库存数据-本行“吨位”

如果进出库分类是对过

那么库存=上一次库存数据

看了也有点不会啊，能不能帮忙写一下呢？

哪位大神还是帮我写一下吧，外专业的看了指南也不会写啊，忒麻烦了~~~

写好了 请帮我看看

进出库信息记录_DataColChanged

Select Case e.DataCol.Name

    Case "客户名称","货物种类","进出库分类","吨位","库存"

        Dim dr As DataRow

        Dim mr As DataRow = e.DataRow

        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [客户名称] = '" & mr("客户名称") & "'And[货物种类]= '" & mr("货物种类") & "'", "[_SortKey] Desc")

If dr Is Nothing Then

mr("库存")=mr("吨位")

End If

If dr IsNot Nothing Then

If  mr("进出库分类")="进库" Then

mr("库存")=dr("库存")+mr("吨位")

End If