以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何做到库存实时更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53976)

--  作者:hcx0522
--  发布时间:2014/7/19 8:27:00
--  如何做到库存实时更新
你好,请教一下,为什么物料名称发生改变,进仓表中明明没有这个品种了,为什么盘点表中的数量还是没有发生变化,如何才能够做到进仓表物料名称发生改变了,盘点表中的数量也会发生变化。因为毕竟没有进仓了。谢谢
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140719082112.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140719082058.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:祥泰仓库管理系统.rar


--  作者:Bin
--  发布时间:2014/7/19 9:04:00
--  
http://www.foxtable.com/help/topics/1453.htm
--  作者:hcx0522
--  发布时间:2014/7/19 10:03:00
--  

物料名称发生改变,进仓表中明明没有这个品种了,为什么盘点表中的数量还是没有发生变化,如何才能够做到进仓表物料名称发生改变了,盘点表中的数量也会发生变化。因为毕竟没有进仓了,为了实现这个功能,我写的这些代码,但是不知错在哪里,盘点表中的本月入库数量的统计反而不行了,请高手指点一下,谢谢。

 

Select Case e.DataCol.name
    Case "数量","单价"
        If e.DataRow.Isnull("数量") Then
            e.DataRow("金额") = Nothing
        Else
            e.DataRow("金额") = e.DataRow("单价") * e.DataRow("数量")
           
        End If
        If e.DataCol.Name = "存货名称" Then  \'如果内容发生变动的是品名列
            If e.NewValue Is Nothing Then  \'如果新值是空白,也就是品名列的内容为空
                e.DataRow("数量") = Nothing \'那么清空此行单价列的内容
            Else
               
               
                Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 =\'" & e.DataRow("存货名称") & "\'")
               
                If fdr IsNot Nothing Then
                    fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 =\'" & e.DataRow("存货名称") & "\'")
                End If
            End If
        End If
End Select


--  作者:Bin
--  发布时间:2014/7/19 10:21:00
--  
Select Case e.DataCol.name
    Case "数量","单价","物料名称"
--  作者:hcx0522
--  发布时间:2014/7/19 10:27:00
--  
还是不行呀,能否帮我看一下,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:祥泰仓库管理系统.rar


--  作者:hcx0522
--  发布时间:2014/7/19 16:26:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140719162428.jpg
图片点击可在新窗口打开查看
For Each dr As DataRow In DataTables("盘点表").DataRows
            dr("库存差额") = 0          
        Next

Select Case e.DataCol.Name
    Case "上月库存","本月入库数量","新厂借用数量","本月出库数量"
        e.DataRow("月未库存") = e.DataRow("上月库存") + e.DataRow("本月入库数量") - e.DataRow("新厂借用数量") - e.DataRow("本月出库数量")
    Case "月未库存","库存差额"
        e.DataRow("库存差额") = e.DataRow("月未库存") - e.DataRow("盘点数")       
End Select图片点击可在新窗口打开查看我的代码错在哪了,为什么库存差额没有反映呢?谢谢

--  作者:有点甜
--  发布时间:2014/7/20 10:11:00
--  
Select Case e.DataCol.Name
    Case "上月库存","本月入库数量","新厂借用数量","本月出库数量"
        e.DataRow("月未库存") = e.DataRow("上月库存") + e.DataRow("本月入库数量") - e.DataRow("新厂借用数量") - e.DataRow("本月出库数量")
    Case "月未库存","库存差额","盘点数"
        e.DataRow("库存差额") = e.DataRow("月未库存") - e.DataRow("盘点数")       
End Select
--  作者:wei0769
--  发布时间:2014/7/20 10:15:00
--  
下来试了下,不知道是什么问题,还请高手解决


--  作者:有点甜
--  发布时间:2014/7/20 10:18:00
--  

 不明白你的意思,你修改了对应的列的数据,就会统计对应列的数据了啊,


--  作者:wei0769
--  发布时间:2014/7/20 11:02:00
--  
输入数据后不会增加

你可以试下,在进仓中输入数据,盘点表不会增加
[此贴子已经被作者于2014-7-20 11:02:48编辑过]