表格：资材信息表（库存）、入库主表、入库明细表、出库主表、出库明细表
资材信息表的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
刚开始用，搞不懂，以上根据帮助改的，出库明细表也同样设置，想在资产明细表（库存）中加入期初库存，现库存实时更新。现库存=期初+入库-出库，求码。（用表达式一直出错）
加好友 
发短信
Post By：2023/10/12 17:00:00 [显示全部帖子]
Post By：2023/10/12 20:57:00 [显示全部帖子]
