Foxtable(狐表)用户栏目专家坐堂 → [求助] 求助一个数量计算的完美解决办法,或思路


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

主题:[求助] 求助一个数量计算的完美解决办法,或思路

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/1/15 19:38:00 [显示全部帖子]

 这样改一下试试

If e.Col.Name="出货数量" Then
    If e.Row("客户单号")<>Nothing And e.Row("分批单号")<>Nothing And e.Row("商品名称")<>Nothing And e.Row("品牌")<>Nothing And e.Row("封装")<>Nothing Then
        Dim sql As new SQLCommand      '计算出销售出货表中的出货总量
        sql.C
        sql.CommandText="select sum(出货数量) From {销售出货明细表} Where 客户" & _
        "名称='" & e.Row("客户名称") & "'And 客户单号='" & e.Row("客户单号") & "'And 分批" & _
        "单号='" & e.Row("分批单号") & "'And 商品名称='" & e.Row("商品名称") & "'And 品牌='" & e.Row("品牌") & "'And 封装='" & e.Row("封装") & "'"
        Dim sql1 As new SQLCommand
        sql1.C     '按条件查询出本商品的销售订单数量
        sql1.CommandText="select 数量 From {销售订单明细表} Where 客户" & _
        "名称='" & e.Row("客户名称") & "'And 客户单号='" & e.Row("客户单号") & "'And 分批" & _
        "单号='" & e.Row("分批单号") & "'And 商品名称='" & e.Row("商品名称") & "'And 品牌='" & e.Row("品牌") & "'And 封装='" & e.Row("封装") & "'"
        If sql1.ExecuteScalar -sql.ExecuteScalar+e.Row("出货数量")-e.Row.DataRow.OriginalValue("出货数量") <0 Then
            MessageBox.Show("出货数量大于销售订单数量!","提示:",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
End If


 回到顶部