EXCEL报表输出的一个奇怪现象，百思不得其解。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → EXCEL报表输出的一个奇怪现象，百思不得其解。

共有2483人关注过本帖树形打印复制链接主题：EXCEL报表输出的一个奇怪现象，百思不得其解。

有点蓝

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

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

Post By：2019/9/15 16:28:00 [显示全部帖子]

正常，改改

With Tables("户主") '父表

Dim i1 As Integer = .TopPosition

Dim i2 As Integer = .BottomPosition

.Position = i2

.Position = i1

For i As Integer = i1 To i2

.Position = i

Dim Book As New XLS.Book(ProjectPath & "Attachments\惠民政策卡.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\惠民政策卡_" & .Current("姓名") & ".xls"

Book.Build() '生成报表

Book.Save(fl) '保存报表

End With

MessageBox.Show("选定记录批量输出完毕!")

有点蓝

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

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

Post By：2019/9/16 11:38:00 [显示全部帖子]

因为.Position默认就是选中的第一行，第一次还是设置.Position为选中的第一行，相当于Position没有变化，所以第一次还是选中所有行

主题：EXCEL报表输出的一个奇怪现象，百思不得其解。