For i As Integer = 0 To 9
Dim r As Row = Tables("表B").Rows(i)
r("A") = Tables("表A").Rows(i + 0 * 10)("A")
r("B") = Tables("表A").Rows(i + 1 * 10)("A")
r("C") = Tables("表A").Rows(i + 2 * 10)("A")
r("D") = Tables("表A").Rows(i + 3 * 10)("A")
r("E") = Tables("表A").Rows(i + 4 * 10)("A")
Next