共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]库存统计
1楼
Xmihu 发表于：2023/10/12 17:00:00表格：资材信息表（库存）、入库主表、入库明细表、出库主表、出库明细表
资材信息表的DataColChanged：
If e.DataCol.Name = "资材编号" Then
Dim Filter As String = "[资材编号] = '" & e.NewValue & "'"
e.DataRow("现库存") = DataTables("入库明细表").Compute("Sum(入库数量)", Filter)
End If
入库明细表的DataColChanged：
Select Case e.DataCol.Name
Case "入库数量"
Dim pr As DataRow
pr = DataTables("资材信息表").Find("资材编号 = '" & e.DataRow("资材编号") & "'")
If pr IsNot Nothing Then
DataTables("资材信息表").DataCols("资材编号").RaiseDataColChanged(pr)
End If
End Select
刚开始用，搞不懂，以上根据帮助改的，出库明细表也同样设置，想在资产明细表（库存）中加入期初库存，现库存实时更新。现库存=期初+入库-出库，求码。（用表达式一直出错）
2楼
有点蓝 发表于：2023/10/12 17:05:00资材信息表的DataColChanged
If e.DataCol.Name = "资材编号" Then
Dim Filter As String = "[资材编号] = '" & e.NewValue & "'"
e.DataRow("现库存") = e.DataRow("期初") + DataTables("入库明细表").Compute("Sum(入库数量)", Filter) - DataTables("出库明细表").Compute("Sum(入库数量)", Filter)
End If
3楼
Xmihu 发表于：2023/10/12 20:57:00谢谢！原来是错在期初上了。简单的框架完成了，继续学习
共3 条记录, 每页显示 10 条, 页签:
[1]