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

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)