主题：[求助]代码求助

我在datacolchanged里写了如下代码

If e.DataCol.Name = "单价" Then
  Dim da As DataRow = e.DataRow
  Select Case e.DataCol.Name
        Case "数量","单价"
            If da.IsNull("数量") OrElse da.IsNull("单价") Then
                da("合计金额") = Nothing
            Else
                da("合计金额") = da("数量") * da("单价")
            End If
    End Select
End If

希望能实现在相应的录入窗口中，输入单价会自动计算合计金额

但目前的情况是预览录入窗口测试时，不会自动计算合计金额，但关闭窗口返回表后会发现

合计金额已经计算，请问这是什么情况？