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

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

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

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

Dim s1 as string

Dim drs as List(of Datarow) =  DataTables("表A").Select("是否过账= 0")

if  drs.count > 0 Then 

   For Each dr As dataRow In drs     
         dr("是否过账") = True

   Next

End if

if drs.count = 0 then

       s1 = "没有要处理的数据哟，已全部过账啦！"     

else

      s1 = "过账完毕，合计过账" &  drs.count   & "条记录"！"

End if 

MessageBox.Show(s1, "提示", MessageBoxButtons.ok)