[求助]一列分多列显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]一列分多列显示

共有1016人关注过本帖树形打印复制链接主题：[求助]一列分多列显示

moseser

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：612 积分：5220 威望：0 精华：0 注册：2022/4/4 14:42:00

[求助]一列分多列显示 发帖心情

Post By：2023/9/2 14:11:00 [只看该作者]

table1 A列，一共有50行，

我想在窗口表tableB 中，显示table1 的内容，只提取其A列的值，但是，编程5列，列每列10行

请问如何实现？

tables1

……

tableB

A B C D E

1 11 21 31 41

2 12 22 32 42

3 13 23 33 43

……

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106464 积分：541467 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

SbFox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：71 积分：479 威望：0 精华：0 注册：2021/12/11 14:20:00

Post By：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")

主题：[求助]一列分多列显示