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

两张关联表打印一套Excel报表。每条父表数据生成一个Excel表，其中子表数据需要进行筛选。用代码生成。

结果出现子表的数据没有筛选过。但使用键盘鼠标换行打印Excel报表生成的Excel文件是筛选过的。正确代码是怎么写的？

Dim Filter As String

Filter = "JYSJ >= #" & dt1 & "# And JYSJ <= #" & dt2 & "#"

MainTable = Tables("CLXX")

Tables("CLXX.JYJL").Filter = Filter

Dim sheet1 As XLS.Sheet

Dim f1,f2 As String

f1=ProjectPath & "\temp.xls"

f2=SpecialFolder.DesktopDirectory & "\单车加油-" & Jysxn & Jysxy & ".xls"

Dim Book2 As New XLS.Book

For i As Integer = 0 To CurrentTable.Rows.Count -1

CurrentTable.Position = i

System.Threading.Thread.Sleep(1000)

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\单车加油模板.xls")

Book1.Build() '生成细节区

Sheet1 = Book1.Sheets("muban")

sheet1.Name = CurrentTable.Current("CH")

System.Threading.Thread.Sleep(1000)

Book1.Save(f1) '保存工作簿

Book1.Sheets.Remove(Sheet1)

Book2.Sheets.Add(Sheet1)

System.Threading.Thread.Sleep(500)

正确的写法是什么？

首先不是特别情况不要使用CurrentTable这种用法，最好是指定表。

Dim Filter As String

Filter = "JYSJ >= #" & dt1 & "# And JYSJ <= #" & dt2 & "#"

MainTable = Tables("CLXX")

Dim sheet1 As XLS.Sheet

Dim f1,f2 As String

f1=ProjectPath & "\temp.xls"

f2=SpecialFolder.DesktopDirectory & "\单车加油-" & Jysxn & Jysxy & ".xls"

Dim Book2 As New XLS.Book

For i As Integer = 0 To Tables("CLXX").Rows.Count -1

Tables("CLXX").Position = i

Tables("CLXX.JYJL").Filter = Filter

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\单车加油模板.xls")

Book1.Build() '生成细节区

Sheet1 = Book1.Sheets("muban")

sheet1.Name = Tables("CLXX").Current("CH")

Book1.Save(f1) '保存工作簿

Book1.Sheets.Remove(Sheet1)

Book2.Sheets.Add(Sheet1)

这样速度快了，但子表筛选还是出现问题，屏幕上确实筛选了，但打印出的Excel报表中仍有不是筛选范围的数据，怎么回事？移动键盘鼠标逐条打印就没有问题

嗯，execl报表关联表和筛选没有关系的，需要移除掉才行，或者子表只加载有关的数据

但是键盘鼠标操作生成的没有问题啊！两者不一致，能模拟键盘鼠标操作点击报表按钮吗

搞不懂了。您是需要筛选还是不需要筛选？

需要筛选，屏幕上已经筛选出正确结果了。但用代码出问题（未进行筛选，与屏幕不一致），逐行用点击菜单的方式没问题（与屏幕一致，有筛选）。

[此贴子已经被作者于2020/12/11 15:27:39编辑过]

关联表的筛选对模板里子表的数据输出不可能起作用的。请上传实例说明

主题：[求助]Excel报表打印问题