以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助SQL代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119122)

--  作者:lihe60
--  发布时间:2018/5/18 9:38:00
--  求助SQL代码
下列代码运行提示错误
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售合同.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets("sheet1")
book.AddDataTable("单据",sourcename,"Sel ect *,单位名称加密+Char(10)+单位地址外文加密 As 综合 from {业务} where [_identify]=" & ywcr("_identify")) \'添加父表
book.AddDataTable("单据明细",sourcename,"Se lect * from {业务库} where 行号=" & ywcr("行号")) \'添加子表
book.AddRelation("单据","行号","单据明细","行号") \'建立关联





--  作者:lihe60
--  发布时间:2018/5/18 9:38:00
--  
错误代码在第三行
--  作者:有点甜
--  发布时间:2018/5/18 9:49:00
--  
book.AddDataTable("单据",sourcename,"Select *,单位名称加密+Chr(10)+单位地址外文加密 As 综合 from {业务} where [_identify]=" & ywcr("_identify")) \'添加父表

--  作者:lihe60
--  发布时间:2018/5/18 10:03:00
--  
用了3楼的代码

图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/5/18 10:15:00
--  

你代码应该是没问题的,应该是excel模板有问题导致的。

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41140&skin=0

 

不会处理,请做个例子发上来测试