订单表DataColChanged事件代码:
记得将采购表的采购量列改成数值型。
If e.DataCol.name = "要求交期" Then
If e.DataRow.IsNull("要求交期") = False
e.DataRow("订单合计") = e.DataTable.Compute("sum(订单量)","料号 = '" & e.DataRow("料号") & "' and 要求交期 <= #" & e.DataRow("要求交期") & "#")
e.DataRow("采购合计") = DataTables("采购表").Compute("sum(采购量)","料号 = '" & e.DataRow("料号") & "' and 采购交期 <= #" & e.DataRow("要求交期") & "#")
Else
e.DataRow("订单合计") = Nothing
e.DataRow("采购合计") = Nothing
End If
End If