table1 A列，一共有50行，
我想在窗口表tableB 中，显示table1 的内容，只提取其A列的值，但是，编程5列，列每列10行
请问如何实现？
tables1
A
1
2
3
4
……
tableB
A B C D E
1 11 21 31 41
2 12 22 32 42
3 13 23 33 43
……
Dim ss() As String = {"A", "B", ...........}
Dim idx As Integer = 0
Tables("tableB").addnew(10)
For i As Integer = 0 To ss.length - 1
For j As Integer = 0 To 9
Tables("tableB").rows(j)(ss(i)) = Tables("tables1").rows(idx)("A")
idx += 1
Next
Next
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