主题：自动更新

当前表中某一行"合同金额","已付利息","最后利息","累计利息"中的任何一个发生变化时，
合同汇总的同一个登记编号的行发生自动更新，写了以上代码，但是实现不了，不知道是什么原因。

Select Case e.DataCol.name
    Case "合同金额","已付利息","最后利息","累计利息"
        Dim dr As DataRow
        dr = DataTables("合同汇总").Find("[登记编号] = '" & e.DataRow("登记编号") & "'")
        DataTables("合同汇总").DataCols("登记编号").RaiseDataColChanged(dr)
End Select