| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [原创]这个库存的表达式怎么写代码呢？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44711) |
|
| -- 作者：youngk -- 发布时间：2014/1/7 12:51:00 -- [原创]这个库存的表达式怎么写代码呢？ 我建立一个进出库流水记录表，在这个表中涉及的列有：客户名称、货物种类、进出库分类、吨位、库存 这个代码怎么写呢？求助~~~ 如果输入的客户名称、货物种类以前没有 那么库存=吨位 如果输入的客户名称、货物种类有一样的 那么 如果进出库分类是进库 那么库存=上一次库存数据+本行“吨位” 如果进出库分类是出库 那么库存=上一次库存数据-本行“吨位” 如果进出库分类是对过 那么库存=上一次库存数据 |
|
| -- 作者：Bin -- 发布时间：2014/1/7 14:07:00 -- 呵呵,这个说简单简单,说复杂也稍微有点复杂. 目前就算我写出代码楼主也不一定能理解. 新手建议先看一下我们的帮助 打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助 |
|
| -- 作者：狐狸爸爸 -- 发布时间：2014/1/7 14:15:00 -- 帮助有例子： http://www.foxtable.com/help/topics/2136.htm
不过一开始会看不懂，最好先按顺序看帮助。 |
|
| -- 作者：youngk -- 发布时间：2014/1/7 17:39:00 -- 看了也有点不会啊，能不能帮忙写一下呢？ |
|
| -- 作者：Bin -- 发布时间：2014/1/7 17:40:00 -- 2楼我就说了,单独看一下是不行的,写一下你也是无法理解,套用不了的.
|
|
| -- 作者：youngk -- 发布时间：2014/1/9 14:39:00 -- 哪位大神还是帮我写一下吧，外专业的看了指南也不会写啊，忒麻烦了~~~ |
|
| -- 作者：狐狸爸爸 -- 发布时间：2014/1/9 15:48:00 -- 这个问题帮助其实讲得很清楚啊。 如果要别人帮忙写，就得自己设计好表，输入测试数据后传上来。 否则，以你目前这种状态，帮你写好，可能也不知道将这个代码复制到那个事件，更不会根据自己的表结构来调整代码。 |
|
| -- 作者：youngk -- 发布时间：2014/1/9 19:47:00 -- 写好了 请帮我看看 进出库信息记录_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") |
|
| -- 作者：youngk -- 发布时间：2014/1/9 19:51:00 -- If dr Is Nothing Then mr("库存")=mr("吨位") End If If dr IsNot Nothing Then If mr("进出库分类")="进库" Then mr("库存")=dr("库存")+mr("吨位") End If <!--EndFragment--> |
|
| -- 作者：有点甜 -- 发布时间：2014/1/9 20:01:00 -- 回复9楼，有什么问题？贴代码最好加一个上传的例子，然后说明要求 |