Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]更改计算的问题


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

主题：[求助]更改计算的问题
帅哥哟，离线，有人找我吗？
349289451
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：1658 威望：0 精华：0 注册：2016/3/22 14:25:00 		[求助]更改计算的问题  发帖心情 Post By：2016/8/12 16:18:00 [显示全部帖子]

If e.DataCol.Name = "数量" Then
    Dim dr As Integer = Tables("物料库存表").FindRow("[物料代码]='" & e.DataRow("物料代码") & "'")
    If e.DataRow("出入库类型")="出库" Then
         Tables("物料库存表").Rows(dr)("物料库存") -= e.NewValue
    Else
        Tables("物料库存表").Rows(dr)("物料库存") += e.NewValue
    End If
End If

以上代码用于跨表计算库存的
可以一旦出现在数量列录入出错需要更改的时候  就会有问题了
比如库存是50    出库了10    库存变成40  这没问题    可是突然发现出库出错了  实际出库是8  这时候要是直接在数量上改的话   库存会变成32  
能不能加代码   删除这一行  返回计算之前的状态
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询