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

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

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

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

那么库存=吨位

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

如果进出库分类是进库

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

如果进出库分类是出库

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

如果进出库分类是对过

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

呵呵,这个说简单简单,说复杂也稍微有点复杂. 目前就算我写出代码楼主也不一定能理解.

帮助有例子：

http://www.foxtable.com/help/topics/2136.htm

 

不过一开始会看不懂，最好先按顺序看帮助。

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

2楼我就说了,单独看一下是不行的,写一下你也是无法理解,套用不了的.

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

这个问题帮助其实讲得很清楚啊。

如果要别人帮忙写，就得自己设计好表，输入测试数据后传上来。

否则，以你目前这种状态，帮你写好，可能也不知道将这个代码复制到那个事件，更不会根据自己的表结构来调整代码。

写好了 请帮我看看

进出库信息记录_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

<!--EndFragment-->       

 回复9楼，有什么问题？贴代码最好加一个上传的例子，然后说明要求