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

Dim cnt as integer

For Each r As Row In Tables("表A").Rows
            If  r("是否过账") = false Then
                r("是否过账") = True

                cnt = cnt +1
            End If
Next

if cnt = 0 then

     MessageBox.Show("没有要处理的数据哟，已全部过账啦！", "提示", MessageBoxButtons.ok)
else

    MessageBox.Show("过账完毕，合计过账" & cnt & "条记录", "提示", MessageBoxButtons.ok)
end if