试试......
e.Form.Controls("Chk备品").Checked = True
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
Dim r As Row = tb.Current
Dim Book As New XLS.Book(ProjectPath & "Attachments\配件表.xls") '打开模板
Dim fl As String = "d:\配件表\" & r("排产单号") & "_配件表.xls"
Dim pdf As String = "d:\配件表\" & r("排产单号") & "_配件表.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,7).Value = "日期:" & Date.Today
Sheet(0,1).Value = r("排产单号") & " 配件表"
Sheet(3,0).Value = "<" & e.Form.Name & "_Table1>"
Sheet(4,2).Value = "'<" & e.Form.Name & "_Table1>"
Book.Build() '生成报表
'Book.Save(fl)
Book.SaveToPDF(pdf) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = pdf
Proc.Start()
加好友 
发短信
Post By：2017/5/31 17:09:00 [显示全部帖子]
