主题：报表生成的问题

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim r As Row = Tables("表a").Current
Dim tmp As String = ProjectPath & "Attachments\订单清单.xls"
Dim rpt As String = "d:/订单/" & r("所属年份") & r("所属月份")+"订单清单.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) '保存为pdf文件
wbr.AddRess = rpt

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\订单清单.xls"
Dim tmp1 As String = ProjectPath & "Attachments\订单接口报表.xls"
Dim rpt1 As String = "d:/订单/"+(Tables("订单报表").Current("所属年份")) + (Tables("订单报表").Current("所属月份"))   +"01.xls"
Dim rpt As String = "d:/订单/"+(Tables("订单报表").Current("所属年份")) + (Tables("订单报表").Current("所属月份"))   +"订单清单.pdf"
If FileSys.FileExists(rpt) = False Then
    Dim Book As New XLS.Book(tmp)
    Dim Book1 As New XLS.Book(tmp1)
    Book.Build()
    Book1.Build()
    Book1.Save(rpt1)'保存为pdf文件
    Book.SaveToPDF(rpt) '保存为pdf文件
End If

wbr.AddRess = rpt