主题：[求助]遍历如何做？

Dim hasSave As Boolean = True

For Each r As Row In Tables("档案管理总表.档案管理明细").Rows

    If r.DataRow.RowState <> DataRowState.Unchanged Then

        hasSave = False

    End If

Next

If hasSave Then

    With Tables("档案管理总表")

        If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改

            .Position = .Position - 1

        End If

    End With '上一条

End If

这样的话只能在点击保存按钮两次以后才能操作上一条，我用messagebox.show试了一下，第一次保存后点按钮上一条hasSave为False，第二次保存后点按钮上一条hasSave就变成了True，这是怎么回事呢？