主题：Excel报表制作的问题

试试

<派工单号 Like '79931000%' or 派工单号 Like '3208114000%' >

不行的话，做个实例看看

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

Dim r As Row = Tables("窗口1_Table1").Current
Dim tmp As String = ProjectPath & "Attachments\cdsh2.xls"
Dim tmp1 As String = ProjectPath & "Attachments\cdsh.xls"
Dim rpt1 As String = "d:/tpcd/"+(r("第三列")) + (r("第四列"))   +"01.xls"
Dim rpt As String = "d:/tpcd/"+(r("第三列")) + (r("第四列"))   +"清单.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) '保存为pdf文件
Dim Book1 As New XLS.Book(tmp1)
Book1.Build()
Book1.Save(rpt1)'保存为pdf文件

wbr.AddRess = rpt