完整代码如下
Dim fs As String= ProjectPath & "打印模板\技术报价单打印.xls"
Dim r As Row =Foxtools.Tools.Rows(eform)
If FileSys.FileExists(fs) Then
Dim Book As New XLS.Book(fs)
Dim fl As String = ProjectPath & "OutPut\技术报价单打印shuchu.xls"
book.AddDataTable("SCGL_技术报价单","主数据源","Select * fro m {SCGL_技术报价单} where 编号='" & r("编号") & "'")'添加父表
book.AddDataTable("SCGL_技术报价单原料" ,"主数据源","Select * fro m {SCGL_技术报价单原料} where 关联编号='" & r("编号") & "'")'添加子表
book.AddDataTable("SCGL_技术报价单辅件" ,"主数据源","Select * fro m {SCGL_技术报价单辅件} where 关联编号='" & r("编号") & "'")'添加子表
book.AddDataTable("SCGL_技术报价单人工" ,"主数据源","Select * fro m {SCGL_技术报价单人工} where 关联编号='" & r("编号") & "'")'添加子表
book.AddRelation("SCGL_技术报价单","编号","SCGL_技术报价单人工" ,"关联编号") '建立关联
book.AddRelation("SCGL_技术报价单","编号","SCGL_技术报价单原料" ,"关联编号") '建立关联
book.AddRelation("SCGL_技术报价单","编号","SCGL_技术报价单辅件" ,"关联编号") '建立关联
msgbox(r.Table.Name)
' book.DataTables("技术报价单_Table1").DataCols("图片").ExtendType = ExtendTypeEnum.Images '扩展类型为图片
book.DataTables("SCGL_技术报价单").DataCols("图片").ExtendType = ExtendTypeEnum.Images '扩展类型为图片
msgbox("00")
book.DataTables("SCGL_技术报价单").DataCols("图片").Remote = True '使用FTP管理
msgbox("11")
With book.DataTables("SCGL_技术报价单").DataCols("图片").FTpClient '设置FTP属性
.host=vars("FTP_ip地址")
.Account =vars("FTP_账号")
.password =vars("FTP_密码")
.Port= vars("FTP_端口")
End With
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
End If