以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助SQL代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119122) |
-- 作者:lihe60 -- 发布时间:2018/5/18 9:38:00 -- 求助SQL代码 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楼的代码 |
-- 作者:有点甜 -- 发布时间:2018/5/18 10:15:00 -- 你代码应该是没问题的,应该是excel模板有问题导致的。
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41140&skin=0
不会处理,请做个例子发上来测试 |