Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "单价"
dr("金额") = dr("数量")*dr("单价")
Dim dt As Table = Tables("任务单明细表")
Dim s As String = dt.Current("任务单号")
For Each d As DataRow In DataTables("任务单").Select("任务单号 = '" & s & "'")
d("总金额") = dt.Compute("Sum(金额)","[任务单号] = '" & s & "'")
Next
End Select
在明细表中的datacolchanged中如上代码,明细表中的金额可以在单价改变时跟着改变,主表中的总金额却没有跟着变,请高手指导一下。谢谢