下列代码运行提示错误
此主题相关图片如下:无标题.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("单据","行号","单据明细","行号") '建立关联