建立了关联表"订单" (父表)和"订单产品"(子表),通过 [合同号] 建立联系.企图通过计算与 (父表)"订单" 相同[合同号]的子表"订单产品"的产品[金额],赋值给父表"订单" [合计金额]的值.并将[合计金额]的值,转换成大写英文货币形式.尝试写了下面的代码,功能 能实现,但父表有两个以上的合同时,需要点击菜单栏的 重置 按钮. [合计金额] 的值才能上去. 我想,一定有更简便的,一旦"订单产品"的产品[金额]栏有值,父表[合计金额]的值就自动跳上的,所以,那位大侠看到了,请指点一下,帮我解决一下这个问题. 致谢!
Dim dt As DataRow = e.DataRow
Select Case e.DataCol.name
Case "合计金额","大写金额"
dt("大写金额") = EUMoney(dt("合计金额"))
Dim Su As Double = Tables("订单产品").Compute("Sum(金额)","[合同号] = '" & dt("合同号") & "'")
dt("合计金额") = Su
End Select