以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  忙活了几天，没整出来，库存计算求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190469)
--  作者：ntcsm
--  发布时间：2024/2/6 11:53:00
--  忙活了几天，没整出来，库存计算求助
请求帮助
按时间顺序，进行入库和出库明细操作记录，出库明细表中的存量计算，按时间和名称进行及时计算
谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:练习.table
--  作者：有点蓝
--  发布时间：2024/2/6 12:00:00
--  
按什么步骤操作？怎么测试
--  作者：y2287958
--  发布时间：2024/2/6 14:39:00
--  
If e.DataCol.Name = "数量" Then 
    Dim 当前行 As DataRow = e.DataRow 
    If 当前行.IsNull("名称") = False Then
        Dim 当前时间之前当前物品入库数 As Integer = DataTables("入库表").Compute("Sum(数量)", "名称=\'" & 当前行("名称") & "\' and 时间<=#" & 当前行("时间") & "#")
        Dim 当前时间之前当前物品出库数 As Integer = e.DataTable.Compute("Sum(数量)", "名称=\'" & 当前行("名称") & "\' and 时间<=#" & 当前行("时间") & "#")
        当前行("存量") = 当前时间之前当前物品入库数 - 当前时间之前当前物品出库数
    End If
End If
--  作者：ntcsm
--  发布时间：2024/2/6 15:55:00
--  
入库名称及数量按时间顺序进行，出库也是按时间顺序进行出库，同时生成及时存量
谢谢，新春快乐
--  作者：ntcsm
--  发布时间：2024/2/6 16:01:00
--  
新春快乐
帅哥，在线噢！
感谢，y2287958帅哥，在线噢！
有点蓝我是学习了多表计算，跨表引用，都没没能整明白非常感谢!
[此贴子已经被作者于2024/2/6 16:04:42编辑过]
--  作者：ntcsm
--  发布时间：2024/2/6 16:16:00
--  
现在的问题是对表格内数据维护，如果修改某行数据，其余行数据未能进行重新计算
--  作者：有点蓝
--  发布时间：2024/2/6 16:22:00
--  
可以参考一下流水账的方式：http://www.foxtable.com/webhelp/topics/2136.htm

这个存量数据个人觉得没有多大用处，放在这里也不是很合理，以后数据一多，每改一行，同产品所有数据都得全部重算一遍，效率极低。

可以学学这个例子里的库存管理方式：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179720
--  作者：ntcsm
--  发布时间：2024/2/6 17:46:00
--  
他的看不到源码
我也参照了流水账，多表统计，搞了几天没搞明白，单表流水账，到是好搞，两张表我就搞不出来了



[此贴子已经被作者于2024/2/6 17:48:35编辑过]
--  作者：有点蓝
--  发布时间：2024/2/6 20:26:00
--  
增加一个流水表，类似帮助里的示例二，入库就增加一行，计入库，出库也增加一行，计出库
--  作者：ntcsm
--  发布时间：2024/2/7 10:30:00
--  
昨晚发不出去，显示服务器错误
原先参照流水账搞了流水表，但列数太多，才想拆开来的，
分成入库表和出库明细，简洁多了，就是搞不出来