Dim t As Table = Tables("表A")For Each r As Row In t.rows r.checked = TrueNext
-------------------
Dim t As Table = Tables("表A")For Each r As Row In t.rows r.checked = FalseNext