以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]一列分多列显示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=188115)
--  作者：moseser
--  发布时间：2023/9/2 14:11:00
--  [求助]一列分多列显示
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
……
--  作者：有点蓝
--  发布时间：2023/9/2 14:23:00
--  
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
--  作者：SbFox
--  发布时间：2023/9/2 14:50:00
--  
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