Foxtable(狐表)用户栏目专家坐堂 → 库存数量统计


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

主题:库存数量统计

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


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
库存数量统计  发帖心情 Post By:2023/11/30 8:57:00 [只看该作者]

图片点击可在新窗口打开查看
老师,库存数量的代码怎么写?

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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/30 9:02:00 [只看该作者]


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


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2023/11/30 13:43:00 [只看该作者]

Select Case e.DataCol.Name
    Case "入库数量", "出库数量"
        Dim dr As DataRow
        Dim drs As List(Of DataRow)
        dr = e.DataTable.Find("顺序号 < " & e.DataRow("顺序号"), "顺序号 Desc") '找出上一行
        msgBox(dr)
        If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
            e.DataRow("库存数量") = e.DataRow("入库数量") - e.DataRow("出库数量")
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("顺序号 >= " & dr("顺序号"), "顺序号")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("库存数量") = drs(i - 1)("库存数量") + drs(i)("入库数量") - drs(i)("出库数量")
        Next 
End Select

提示运行错误
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:表,出入库二级表,DataColChanged
详细错误信息:
调用的目标发生了异常。
未找到列 [物料0002]。

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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/30 13:51:00 [只看该作者]


drs = e.DataTable.Select("顺序号 >= '" & dr("顺序号") & "'", "顺序号")

 回到顶部