If Tables("月缴费表").Current.Isnull("姓名") = False Then
Dim d As Date = Tables("月缴费表").Current("日期")
Dim r As Row = Tables("月缴费表").Current
Dim Filter As String
Filter = "日期 < '" & d & "' and 姓名 = '" & r("姓名") & "'"
Dim dr As DataRow = DataTables("月缴费表").find(Filter,"日期 desc")
If dr IsNot Nothing Then
r("电费_期初") = dr("电费_期末")
r("姓名") = dr("姓名")
End If
End If
老师，我这个是一个默认取该表里上个月期末值，作为本月的期初值，但是有特殊情况，电表坏了，换电表的这种情况，那么就不能这样取值了，我现在是能手工修改，但还是变为自动取得值，老师，这个怎么处理呀，能改过来呢，请教老师。
加好友 
发短信
Post By：2020/9/6 5:24:00 [只看该作者]
