以文本方式查看主题

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

--  作者:kunmails
--  发布时间:2014/5/15 14:10:00
--  两个表中的数据计算问题

在做仓库管理的时候 有入库单信息,根据入库单填写库位和数量时,希望新增库位信息行中的数量 = “入库数量” - “已经填写的库位信息中的数量之和”,不能大于总数,否则提示。

这个功能该如何做,望大家指教!

做了一个例子!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar


--  作者:Bin
--  发布时间:2014/5/15 14:22:00
--  
不太明确你要怎么算.
--  作者:kunmails
--  发布时间:2014/5/15 14:29:00
--  

比如我要入库总数量为100个铅笔,可能放在2个库位里边,库位1放50个,库位2放50个,那么我在新增2条库位信息总数量不能超过100,

每次新增库位信息的时候默认的数量是 总数量 - 已经填写的库位信息的数量之和,不能超过总数量 


--  作者:Bin
--  发布时间:2014/5/15 14:41:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar


--  作者:有点甜
--  发布时间:2014/5/15 14:41:00
--  

 猜一下,是不是这个意思?

 

  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:kunmails
--  发布时间:2014/5/15 15:34:00
--  

谢谢bin和甜甜 是我没描述清楚,我重新改了下例子,请帮忙看看主要是“选择货位”这个按钮的click代码

 

这个类似于主从表!

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar


--  作者:有点甜
--  发布时间:2014/5/15 15:47:00
--  

按钮代码

 

Dim r As Row = Tables("rkd").Current
If r IsNot Nothing Then
    Dim sum As Double = DataTables("rkdmx").Compute("sum(sl)", "wlbm = \'" & Tables("rkd").Current("wlbh") & "\'")
    If r("rksl") - sum > 0 Then
        Dim dr As DataRow  = DataTables("rkdmx").AddNew
        dr("wlbm") = r("wlbh")
        dr("ckmc") = r("ck")
        dr("id") = r("id")
        dr("sl") = r("rksl") - sum
    End If
End If


--  作者:kunmails
--  发布时间:2014/5/15 16:40:00
--  
谢谢 !狐表最温馨的就是论坛有这么多人帮你解答问题,现在每天都会打开论坛看看!