主题：[求助]这样的结果如何实现？

一般来说，表A写了计算代码，如果表B的数据变化会影响表A的计算结果，可以在表B写代码，找出表A对应的行，然后用RaiseDataColChanged强行触发表A的DataColChanged时间，表B的代码类似：

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

你可以看一下这个：

http://www.foxtable.com/help/topics/1453.htm

http://www.foxtable.com/help/topics/1472.htm

有问题再说话。