Foxtable(狐表)用户栏目专家坐堂 → 两个表中的数据计算问题


  共有3055人关注过本帖树形打印复制链接

主题:两个表中的数据计算问题

帅哥哟,离线,有人找我吗?
kunmails
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:3213 威望:0 精华:0 注册:2013/5/6 10:15:00
两个表中的数据计算问题  发帖心情 Post By:2014/5/15 14:10:00 [只看该作者]

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

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

做了一个例子!

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/15 14:22:00 [只看该作者]

不太明确你要怎么算.

 回到顶部
帅哥哟,离线,有人找我吗?
kunmails
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:3213 威望:0 精华:0 注册:2013/5/6 10:15:00
  发帖心情 Post By:2014/5/15 14:29:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/15 14:41:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/15 14:41:00 [只看该作者]

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

 

  

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


 回到顶部
帅哥哟,离线,有人找我吗?
kunmails
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:3213 威望:0 精华:0 注册:2013/5/6 10:15:00
  发帖心情 Post By:2014/5/15 15:34:00 [只看该作者]

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

 

这个类似于主从表!

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:3213 威望:0 精华:0 注册:2013/5/6 10:15:00
  发帖心情 Post By:2014/5/15 16:40:00 [只看该作者]

谢谢 !狐表最温馨的就是论坛有这么多人帮你解答问题,现在每天都会打开论坛看看!

 回到顶部