关联表,子表是原先的历史数据,父表是新建表,父表和子表根据 [产品名称] 关联,父表的 [入库数量] 由子表根据相同[产品名称]的[入库数量]赋值。疑惑:父表的[入库数量]有的有值了,有的需要在子表新增一行后,值才跳上。求教。。。
Dim je As DataRow = e.DataRow
Select Case e.DataCol.name
Case "入库数量","出库数量","产品名称"
Dim fdr As DataRow = je.GetParentRow("当前产品库存表")
If fdr IsNot Nothing Then
Dim su As Double = Tables("库存明细2013年").compute("Sum(入库数量)","[产品名称] = '" & fdr ("产品名称") & "'")
Dim yf As Double = Tables("库存明细2013年").compute("Sum(出库数量)","[产品名称] = '" & fdr ("产品名称") & "'")
fdr("总计入库数量KG") = su
fdr("总计出库数量KG")=yf
DataTables("当前产品库存表").DataCols("库存数量KG").RaiseDataColChanged(fdr)
DataTables("当前产品库存表").DataCols("总计出库数量KG").RaiseDataColChanged(fdr)
DataTables("当前产品库存表").DataCols("总计入库数量KG").RaiseDataColChanged(fdr)
End If
End Select