问题解决，应该这样写
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)
加好友 
发短信
Post By：2020/1/3 14:48:00 [显示全部帖子]
