我用循环语句打印数据库里的记录，在excel表里始终是和第一条记 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我用循环语句打印数据库里的记录，在excel表里始终是和第一条记

共有1774人关注过本帖树形打印复制链接主题：我用循环语句打印数据库里的记录，在excel表里始终是和第一条记

xxfoxtable

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

等级：七尾狐帖子：1700 积分：15920 威望：0 精华：0 注册：2017/6/1 23:12:00

我用循环语句打印数据库里的记录，在excel表里始终是和第一条记 发帖心情

Post By：2018/7/6 18:23:00 [显示全部帖子]

我用循环语句打印数据库里的记录，在excel报表里始终是第一条记

是什么原因呢，如果加all是全打印了，但全打在一张excel表里了，我想一张excel报表是数据库的一条记录

[此贴子已经被作者于2018/7/6 18:23:26编辑过]

xxfoxtable

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

等级：七尾狐帖子：1700 积分：15920 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/7/6 20:25:00 [显示全部帖子]

For Each dr As Row In Tables("一户一清单").Rows

p.value=p.value+1

Vars("cz")= dr("乡") & "乡(镇)街道" & dr("村") & "行政村" & dr("组")

Dim Book As New XLS.Book(ProjectPath & "Attachments\一户一清单.xls")

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim fl As String = ProjectPath & "Reports\一户一清单.xls"

Book.Build() '生成细节区

book.Save(fl)

Dim App As New MSExcel.Application

app.quit

Dim Copyfl As String = "D:\一户一清单\" & dr("乡") & "乡(镇)及街道" & dr("村") & "行政村" & dr("组") & dr("姓名") & ".xls"

FileSys.CopyFile(fl, copyfl, True)

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

[此贴子已经被作者于2018/7/6 20:26:33编辑过]

主题：我用循环语句打印数据库里的记录，在excel表里始终是和第一条记