Table中只针对选中栏生成excel报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

在上图中，比如CTT-WI-F1051-01C表单编号对应的项目有6个，若我现在只选这个表单对应的其中某一个项目打印的话，生成报表还是有包括所有这个6个的，代码如下，请问应该如何修改才能实现，无论这个表单对应多少个项目，生成表单的时候是根据我table复选框中所选的项目才生成（有可能是多个），而不是全部；请问以下的代码应该如何修改？

代码如下：

Dim dic As new Dictionary(Of String, String)

For Each r As Row In Tables("T_Report.T_Item").GetCheckedRows

r("开单状态") = True

If dic.ContainsKey(r("表单编号")) = False Then

dic.add(r("表单编号"), r("_Identify"))

Else

dic(r("表单编号")) = dic(r("表单编号")) & "," & r("_Identify")

End If

For Each key As String In dic.Keys

Dim Book As New XLS.Book(ProjectPath & "Attachments\" & key & ".xls")

Dim fl As String = ProjectPath & "Reports\" & Tables("T_Report").current("报告编号")& "&" & key & ".xls"

vars("编号") = key

book.Sheets(0)(8, 7).Value = "<_Identify in (" & dic(key) & ")>"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

主题：Table中只针对选中栏生成excel报表