主题：[求助]刷新不实时

所以有必要考虑用另一重算方法，将订单表的DataColChanged事件代码设置为：

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

代码的原理是，当订单表中数量、单价、折扣三列中任何一列的内容发生变化，就从统计表中找出对应产品所在的行，然后“欺骗性”地通知系统该行的产品列内容发生了变化，于是触发统计表的DataColChanged事件，重算 此行的数量和金额。

这种更新方式是很常用的，即使处理的不是表达式列，我们多数时候也会采用这种更新方式。
因为使用RaiseDataColChanged更新，代码不会涉及具体的计算，所以代码是通用的，基本上不会因为计算要求的变动，而去修改更新代码。

但是上述代码是无效的，因为作为表达式列，C列发生变化的时候，并不会触发DataColChanged事件。

我们可以换个思路，既然C列是有A列和B列计算得出，那么C列发生变化，肯定是因为A列或B列发生变化引起的。
所以正确的代码是：

Select Case e.DataCol.Name
    Case "A" ,"B"
          '计算D列的代码
End Select