主题：水厂抄表本月期初数自动获取上月期末数

请问代码错在哪里？

Dim r As Row = Tables("水费抄表记录").Current
Dim dr As DataRow
dr = DataTables("水费抄表记录").Find("[单位名称] = '" & r("单位名称") & "'", "期末数 desc")
If dr IsNot Nothing Then
    r("期初数")  =dr("期末数")
End If

谢谢！但是执行上述代码后，录入期末数后，期初数和期末数变得一样了，请指教！

如果写在datacolchanged事件，这样写

 

If e.DataCol.name = "期末数" OrElse e.DataCol.name = "单位名称" Then
    Dim r As DataRow = e.DataRow
    Dim dr As DataRow
    dr = DataTables("水费抄表记录").Find("[单位名称] = '" & r("单位名称") & "' and _Identify <> " & r("_Identify"), "期末数 desc")
    If dr IsNot Nothing Then
        r("期初数")  =dr("期末数")
    End If
End If

谢谢！