填充表格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 填充表格

共有3369人关注过本帖树形打印复制链接主题：填充表格

michl

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

等级：幼狐帖子：106 积分：1331 威望：0 精华：0 注册：2021/8/20 16:21:00

填充表格

Post By：2022/3/10 10:58:00 [只看该作者]

如图，请教老师：

表A一列35行，依次填入8行5列的sheet表格，再把此sheet复制到sheet2并清空原sheet内容

此主题相关图片如下：无标题.png

有点蓝

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

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

Post By：2022/3/10 11:11:00 [只看该作者]

比如

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)

dim idx as integer = 0

dim r as row
For i As Integer = 0 To 7

if idx > tables("表A").rows.count - 1 then exit for

For j As Integer = 0 To 5

if idx > tables("表A").rows.count - 1 then exit for

r = tables("表A").rows(idx)
Sheet(i, j).Value = r("第一列")

idx = idx + 1
Next

Next
Book.Save("c:\reports\test.xls")

michl

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

等级：幼狐帖子：106 积分：1331 威望：0 精华：0 注册：2021/8/20 16:21:00

Post By：2022/3/10 12:08:00 [只看该作者]

我写的时候绕在三层循环里面了…

for i ...

for j....

for each r ...

主题：填充表格