以文本方式查看主题

-  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=24192)

--  作者:houhuiaiqing
--  发布时间:2012/10/7 14:26:00
--  [求助]各位狐中高手,帮帮忙 ,如何在出库单表中已发列打钩后,库存表库存数量自动实施减去出库数量

小弟研究了2晚上,根据FOXTABLE自带的模板进行编写代码,放在我制作的表中出现了问题,麻烦各位狐中高手帮忙给个代码,小弟在此膜拜,

感谢各位帮忙了

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:库存系统_201210061223.zip


--  作者:blackzhu
--  发布时间:2012/10/7 15:44:00
--  
Select Case e.DataCol.Name
    Case "已发"
        If e.NewValue = True Then
            Dim dr As DataRow = DataTables("库存").Find("物料代码 =\'" & e.DataRow("物料代码") & "\'")
            If dr IsNot Nothing Then
                dr("库存数量")=dr("库存数量")-e.DataRow("数量")
            End If
        End If
End Select

--  作者:blackzhu
--  发布时间:2012/10/7 15:52:00
--  
把库存数量改成数据列才能执行。
--  作者:houhuiaiqing
--  发布时间:2012/10/8 3:37:00
--  

小弟 不才,请问狐友上面代码是不是在库存那张表属性里加呢,出库5200表属性是否还有其他代码,谢谢


--  作者:houhuiaiqing
--  发布时间:2012/10/8 3:39:00
--  
我刚才把你给的代码加到了库存那张表属性里,不行呀。另外还有一个功能就是去掉勾的时候,库存数量不会减去出库5200里的数量。
--  作者:blackzhu
--  发布时间:2012/10/8 7:32:00
--  
放在出库5200的表事件里。
--  作者:houhuiaiqing
--  发布时间:2012/10/8 23:16:00
--  

教授,这个放进去了,但是还是有点改善了,但是数量无法加上去了,如果出库2个,然后又出库了10个,应该出库了12个,但是在2个那地方打钩,出库显示2,然后在去10个那地方打钩,出库就变成了10个,应该为12个呀。另外如果在2个那地方把勾去掉,2个就应该代表不出库,就不应该减少2个,但是我把勾去掉后,那地方还是显示减少2个。

小弟愚笨,请教授在教下,感谢


--  作者:houhuiaiqing
--  发布时间:2012/10/9 6:39:00
--  

以上问题已经解决,不过想问下另外一个问题,就是打勾后能否把此列条目全部选上,有此功能吗


--  作者:blackzhu
--  发布时间:2012/10/9 7:15:00
--  
啊,比我还早.我只提供一个方法,你既然解决就好了. 8楼的不明白你的意思.
--  作者:inf9
--  发布时间:2019/7/28 12:35:00
--  
正好需要