主题：输出固定格式报表

 使用以下命令、符合条件的有很多清单、但是输出却只有一条记录；公式错在哪里啦？

 

 

Dim dt1 As Date
dt1 = Date.Now
    
    
    For i As Integer = 0 To Tables("清单表").Rows.count - 1
        Tables("清单表").Position = i
        Dim r As Row = Tables("清单表").Rows(i)
        Dim Book As New XLS.Book(ProjectPath & "Attachments\清单表.xlsx") '打开模板

            Dim fl As String = "D:\拆分\清单表\" & r("网格") & "网格(清单).xls" '指定目标文件
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Book.Build() '生成报表
            Book.Save(fl)
             
    Next

MessageBox.show("完成【各站段低值易耗品台账表】输出工作!!!", "非常关键提醒")

 

 

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


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


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

如果要输出关联表，参考：http://www.foxtable.com/webhelp/topics/0204.htm

        For i As Integer = 0 To Tables("拆分条件表").Rows.count - 1
           
            Tables("拆分条件表").Position = i
            Dim r As Row = Tables("拆分条件表").Rows(i)
            Dim Book As New XLS.Book(ProjectPath & "Attachments\"& e.Form.Controls("输出表模板名称").text) '打开模板
            'Dim fl As String = ProjectPath & "Reports\" & r("列表项目1") & ".xls" '在当前目录下输出报表
           
           
            Dim fl As String = e.Form.Controls("输出文件路径").text   & e.Form.Controls("输出文件名称").text  & e.Form.Controls("左符号").text &  r(e.Form.Controls("拆分条件表1").text)  &   e.Form.Controls("中符号").text  &   r(e.Form.Controls("拆分条件表2").text) &  e.Form.Controls("右符号").text  & "网格.pdf"   '指定目标文件
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Book.Build() '生成报表
            Book.Save(fl)

 

 

把输出文件设置为PDF文件；输出后PDF文件打不开。要怎么处理？（输出为XLS文件就可以正常打开）

http://www.foxtable.com/webhelp/topics/2930.htm