主题：[求助]求写代码？

表A中有一逻辑列，名称为“是否过账”，如果该逻辑列中有“未过账”的部分就进行“过账”处理，如果没有“未过账”，全部为“已过账”的话，就进行提示“没有要处理的数据，已全部过账啦！”

 For Each r As Row In Tables("表A").Rows
            If  r("是否过账") = True Then
                MessageBox.Show("没有要处理的数据哟，已全部过账啦！", "提示", MessageBoxButtons.ok)
            Else
                r("是否过账") = True
            End If
        Next
不知道代码错在哪？要么没提示，要么提示框很多，烦请高手帮忙修改一下，谢谢！