[求助]库存 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]库存

共有5845人关注过本帖树形打印复制链接主题：[求助]库存

有点甜

小大 41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/28 23:15:00 [只看该作者]

以下是引用q2520在2018/3/28 23:09:00的发言：

我还看不懂你的那个代码

我在用我能理解的笨办法弄我现在想出库数量大于库存数量的时候提示错误但是我不会那个比较

比较的条件是库存表相同编号和单价

那你就直接比较库存表的库存数量。看不懂代码，请先学习foxtable基础知识点。

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

q2520

小大 42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00

Post By：2018/4/8 21:47:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:仓库 .table

此主题相关图片如下：kc.png

老师给帮忙看下这个问题在窗口里填写出库数量库存数量明明还有但是提示数量不够比如我这个图上的例子如果第一个产品就10个库存出库数量10个第二个产品就连输入1个数量都会提示我试出来的结果就是不管选择几个产品总的出库数量不能超过第一行的那个产品的库存数量

如果直接在出库明细里就正常

有点甜

小大 43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/8 23:35:00 [只看该作者]

改代码，DataColChanging事件

If e.DataCol.Name = "数量" Then
    Dim dr1 As DataRow = e.DataRow
    Dim dr2 As DataRow
    dr2 = DataTables("库存").Find("[编号] = '" & dr1("编号") & "'And [单价] = '" & dr1("单价") & "'")
    If dr2 IsNot Nothing Then
        If e.newvalue > dr2("现有库存") Then
            msgbox("出库数量不能多于库存数量")
            e.Cancel = True
        End If
    End If
End If

下一主题 >> << 上一主题

总数 43 上一页 1 2 3 4 5

主题：[求助]库存