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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 运算前判断

共有1552人关注过本帖树形打印复制链接主题：运算前判断

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

运算前判断

Post By：2018/7/10 10:18:00 [只看该作者]

可以在下面的运算结果是否小于0吗？

如果小于0就提示超过库存量

如果不会小于0就执行，

麻烦就是在于，是在执行代码后的结果来判断，感谢感谢

If e.DataRow.IsNull("订单号据_联产编号")=False Then

Dim dr As DataRow = DataTables("库存").Find("属性_产品编号='" & e.DataRow("订单号据_联产编号") & "'")

If dr IsNot Nothing Then

dr("实况_数量")= DataTables("采购记录").Compute("sum(采购_数量)","产品_编号='" & e.DataRow("订单号据_联产编号") & "' and 采购_状态='已完成'")-DataTables("订单附产品表").Compute("sum(订单_数量)","订单号据_联产编号='" & e.DataRow("订单号据_联产编号") & "' and 订单_库存状态='已出库'")

End If

End If '计算待收款在回款表有配套代码

有点甜

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

加好友

发短信

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

Post By：2018/7/10 10:50:00 [只看该作者]

If e.DataRow.IsNull("订单号据_联产编号")=False Then
    Dim sum = DataTables("采购记录").Compute("sum(采购_数量)","产品_编号='" & e.DataRow("订单号据_联产编号") & "' and 采购_状态='已完成'")-DataTables("订单附产品表").Compute("sum(订单_数量)","订单号据_联产编号='" & e.DataRow("订单号据_联产编号") & "' and 订单_库存状态='已出库'")
    If sum < 0 Then
        msgbox("超过库存")
    Else
        Dim dr As DataRow = DataTables("库存").Find("属性_产品编号='" & e.DataRow("订单号据_联产编号") & "'")
        If dr IsNot Nothing Then
            dr("实况_数量")= sum
        End If
    End If
End If '计算待收款在回款表有配套代码

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

主题：运算前判断