Dim dt As Table = Tables("维修")
Dim Book As New XLS.Book("d:\我的文档\Foxtable项目\存档\售后记录.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
MessageBox.Show(1)
For r As Integer = sheet.Rows.Count To dt.Rows.Count+sheet.Rows.Count - 1 '填入数据
MessageBox.Show(2)
For c As Integer = 0 To dt.Cols.Count -1
MessageBox.Show(3)
Sheet(r +1, c).Value = dt.rows(r-sheet.Rows.Count)(c)
MessageBox.Show(4)
Next
Dim St2 As XLS.Style = Book.NewStyle
St2.Format = "yyyy-MM-dd"
Sheet.Cols(dt.Cols("结束时间").Index).Style = st2
Next
Dim Proc As New Process
Book.Save("d:\我的文档\Foxtable项目\存档\售后记录.xls")
Proc.File = "d:\我的文档\Foxtable项目\存档\售后记录.xls"
Proc.Start()
运行 显示3