以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]库存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115630)

--  作者:q2520
--  发布时间:2018/3/10 18:37:00
--  [求助]库存
出库数量 多于 库存数量的时候  出现提示 取消操作
代码要怎么写

--  作者:有点甜
--  发布时间:2018/3/11 21:26:00
--  

跨表引用参考

 

http://www.foxtable.com/webhelp/scr/1451.htm

 

跨表统计参考

 

http://www.foxtable.com/webhelp/scr/1454.htm

 


--  作者:q2520
--  发布时间:2018/3/12 10:26:00
--  
怎么比较  数量的多少   我不知道代码怎么写
--  作者:有点甜
--  发布时间:2018/3/12 10:36:00
--  
以下是引用q2520在2018/3/12 10:26:00的发言:
怎么比较  数量的多少   我不知道代码怎么写

 

如果是同表比较,就在datacolchanging事件写代码

 

If e.DataCol.Name = "出库数量" Then

    If e.newvalue > e.DataRow("库存数量") Then

        msgbox("不能多于库存数量")

        e.Cancel = true

    End If

End If


--  作者:q2520
--  发布时间:2018/3/13 8:15:00
--  
不是一个表    是出库单的数量列   比较   库存单的库存数量列   
--  作者:有点甜
--  发布时间:2018/3/13 8:40:00
--  
If e.DataCol.Name = "数量" Then
    Dim fdr As DataRow = DataTables("库存").find("编号 = \'" & e.DataRow("编号") & "\'")
    If fdr IsNot Nothing Then
        If e.newvalue > fdr("库存数量") Then
            msgbox("不能多于库存数量")
            e.Cancel = True
        End If
    End If
   
End If

--  作者:q2520
--  发布时间:2018/3/13 8:54:00
--  
十分感谢  我都觉得这问题很幼稚   代码能看懂  就是写不出来    只是现在急需先做出个成品   以后再慢慢学   能给个别的联系方式  随时请教吗
--  作者:有点甜
--  发布时间:2018/3/13 9:03:00
--  
以下是引用q2520在2018/3/13 8:54:00的发言:
十分感谢  我都觉得这问题很幼稚   代码能看懂  就是写不出来    只是现在急需先做出个成品   以后再慢慢学   能给个别的联系方式  随时请教吗

 

有问题,到论坛上提问即可。或者联系客服QQ800014337


--  作者:q2520
--  发布时间:2018/3/27 12:44:00
--  [求助]
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:仓库_201803271234.zip


需要实现2个功能
第一 、 出库单   产品的先进先出      
第二、  库存表里显示   同一个产品    不同的单价  数量  多行显示
比方说我这个实例里面     打印机  2次采购   单价分别是100进货1个       单价200进货2个
库存表里  要显示2条打印机的库存       100单价的有几个      200单价的有几个
如果单价100的那个都出库没了   那就只显示单价200的还有几个  就行




[此贴子已经被作者于2018/3/27 13:15:21编辑过]

--  作者:q2520
--  发布时间:2018/3/27 14:45:00
--  
甜老师   给帮忙看下  问题