Dim tb As Table = Tables(e.Form.Name & "_Table5")
Dim dt As DataTable = tb.DataTable
Dim r As Row = tb.Current
Dim d As Date = Functions.Execute("返回服务器日期")
Dim lj As String = "d:\采购订单模板\" & " _ " & d.Year & "_" & d.Month & "_" & d.Day & "\"
Dim Book As New XLS.Book(ProjectPath & "Attachments\123.xls") '打开模板
Dim fl1 As String = lj & "Reports\" & r("采购订单号") & "_采购订单.xls"
Dim fl As String = lj & r("采购订单号") & "_采购订单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For ri As Integer = 0 To tb.Rows.Count - 1
For ci As Integer = 0 To tb.Cols.Count - 1
MessageBox.Show(sheet(1,ci).value & "|" & tb.Cols(ci).Name)
sheet(ri + 2,ci).value = tb.rows(ri)(tb.Cols(ci).Name)
Next
Next
Book.Build() '生成报表
Book.Save(fl)
此主题相关图片如下:无标题.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-3/20183301016120814.png)