主题：按条件增加行出错的问题

你下面的代码是不是要写在循环里面？

For Each r As Row In Tables("转移过账_上传预览table1").Rows ''遍历所有行
    If r.IsNull("移动数量") = False Then ''如果行的数量不为空,设其复选框为选中
        r.Checked = True
    Else r.Checked = False '如果没有选中,弹出提示
        MessageBox.show(r.Index+1 & "行" & r("描述") & vbcrlf & """移动数量"" 不能为空!")
    End If

    '其余的代码