Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("材料月结").DataRows If pdr IsNot Nothing Then dr("上月结存_金额") = pdr("上月结存_金额") End If pdr = dr Next