共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]库存应该怎么做代码实现?
1楼
OO 发表于：2011/12/29 16:53:00在论坛看了好久华海仓库的例子,但一头雾水,搞不清楚是库存是怎样算出来的.请高手做个简单的库存例子可以么?用代码实现实时统计库存.谢谢.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:库存计算.table |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:库存计算.table |
[此贴子已经被作者于2011-12-31 10:49:13编辑过]
2楼
don 发表于：2011/12/30 7:49:00http://www.foxtable.com/help/topics/2359.htm
IsNull([初始库存],0) + IsNull([入库_数量],0)
- IsNull([出库_数量],0)
3楼
OO 发表于：2011/12/30 8:34:00谢谢DON的回复.但我想用代码做的,不是用表达式.想象华海仓库一样直接统计出库存量;也不要组合入库\出库\退货数量\在同一个表上。库存=初始库存+入库数量-出货数量+退货数量 见1楼附件。
4楼
狐狸爸爸 发表于：2011/12/30 9:01:00方法很多，最好先系统学习一下帮助。
5楼
don 发表于：2011/12/30 9:07:00库存货品编码的DataColChanged事件:
If e.DataCol.Name = "货品编码" Then
If e.DataRow.IsNull("货品编码") Then
e.DataRow("当前库存") = Nothing
Else
Dim fl As String = "货品编码 = '" & e.NewValue & "'"
e.DataRow("当前库存") = DataTables("入库明细").Compute("Sum(数量)",fl)+DataTables("退货明细").Compute("Sum(数量)",fl)-DataTables("出库明细").Compute("Sum(出库数量)",fl)
End If
End If
注:出库明细的货品编号列名改为货品编码
入库及出库,退货的DataColChanged事件留给你自己做做
[此贴子已经被作者于2011-12-30 9:08:30编辑过]
6楼
OO 发表于：2011/12/31 10:54:00谢谢DON,但还不行的.因为还有个出库单仓库名称要筛选.出库明细的仓库名称在出库单上.我在引用父表的仓库名称作筛选条件时会出错.这怎么弄呢?
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:库存计算.table |
7楼
狐狸爸爸 发表于：2011/12/31 12:09:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:库存计算.table |
共7 条记录, 每页显示 10 条, 页签:
[1]