主题：自动更新

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

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

1、加msgbox，看是否触发了事件。如果是表达式列，不会触发datacolchanged事件；

 

2、在合共汇总表datacolchanged事件加入msgbox，看执行得是否顺利

没有表达式列

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

End Select

 

执行的顺利，没有提示错误，但是就触发更新

执行的顺利，没有提示错误，但是就不触发更新

在合同汇总表datacolchanged事件加入msgbox，看是否弹出。