If Tables(e.Form.name & "_table1").Rows.Count>0 Then
Dim t1 As Table
t1.DataSource = DataT ables(e.Form.name & "_table1") 我这样做了
Dim i1 As Integer
Dim Book As New XLS.Book(ProjectPath & "Attachments\proc99_all.xls") '9_report.xls")
Dim sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style=book.NewStyle
Style.BackColor=Color.Red
ExcelPath="D:\step00\"
Dim fl As String = ExcelPath & "ExcelReport\proc99_all.xls"
book.Add DataTable("proc99_pub","","sel ect * fro m {t1} order by p9.proc01,p9.proc02,p9.proc03,p8.proc805" ) ‘这里报错了。
book.Build()
book.save( fl ) 'fl
Dim proc As New Process
Proc.file=fl
proc.Start()
End If
请教：如何正确将当前：Tables(e.Form.name & "_table1") 的记录直接作为 book.AddDataTable 的数据源 ？
谢谢专家！
加好友 
发短信
Post By：2020/3/31 9:30:00 [只看该作者]
