主题：如何将SQL的数据绑定到EXCEL报表里呢

问题解决，应该这样写

Dim tbl As WinForm.Table

Dim filters As String = "合同号 = '" & e.Form.Controls("合同号").Text & "'And 款号 = '" &  e.Form.Controls("款号").Text & "' And 业务担当 = '" & e.Form.Controls("业务担当").Text & "' And 合同交期 = '" & e.Form.Controls("合同交期").Text & "' And 客户名称 = '" & e.Form.Controls("客户名称").Text & "' And 品名 = '" & e.Form.Controls("品名").Text & "'"

tbl = e.Form.CreateSQLTable("订单主表", "Select * fro m {订单主表} where " & filters,"彬阳数据")

tbl.SetBounds(10, 10, 600, 400)

tbl.Visible = False

e.Form.AddControl(tbl)

Dim r As Row = Tables("订单主表_订单主表").Current

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单表.xls") '打开模板

Dim fl As String = "d:/订单信息/"+(r("客户名称")) + "/"+(r("合同号")) +"- "+(r("款号")) +" 订单指示.xls"

DataTables("订单主表_订单主表").DataCols("款式图片").ExtendType = ExtendTypeEnum.Images

DataTables("订单主表_订单主表").DataCols("款式图片").FileFilter = "图形文件|bmp;*.jpg;*.gif"

DataTables("订单主表_订单主表").DataCols("款式图片").ExtendType = ExtendTypeEnum.FILES

DataTables("订单主表_订单主表").DataCols("款式图片").Remote = True

DataTables("订单主表_订单主表").DataCols("款式图片").FTPClient.Host = Tables("FTPIP").Current("FTPhost")

DataTables("订单主表_订单主表").DataCols("款式图片").FTPClient.Account = Tables("FTPIP").Current("FTPAccount")

DataTables("订单主表_订单主表").DataCols("款式图片").FTPClient.password = Tables("FTPIP").Current("FTPpassword")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成报表

Book.Save(fl)