专家坐堂-如何将SQL的数据绑定到EXCEL报表里呢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将SQL的数据绑定到EXCEL报表里呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144916)

--  作者：hongye
--  发布时间：2020/1/2 19:50:00
--  如何将SQL的数据绑定到EXCEL报表里呢

以下是打印预览按键
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:问题.txt

以下是EXCEL报表模板
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:订单表.xls

不知道怎么做了，能不能帮我改一下，谢谢

--  作者：有点蓝
--  发布时间：2020/1/3 8:32:00
--
方法1、SQL的数据取出来后绑定到窗口表，模板里使用窗口表名称

2、参考：http://www.foxtable.com/webhelp/topics/3233.htm

--  作者：hongye
--  发布时间：2020/1/3 11:31:00
--

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单表.xls") \'打开模板
Dim fl As String = "d:/订单信息/"+(e.Form.Controls("客户名称").Text) + "/"+(e.Form.Controls("合同号").Text) +"- "+(e.Form.Controls("款号").Text) +" 订单指示.xls"
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 & "\'"
book.AddDat aTable("订单主表","彬阳数据","Sel ect * from {订单主表} where filters")
Dim Sheet As XLS.Sh eet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
sheet = book.Sheets(0)

怎么还是不行，能不能帮我看看，哪里错了

--  作者：有点蓝
--  发布时间：2020/1/3 11:37:00
--
book.AddDat aTable("订单主表","彬阳数据","Sel ect * from {订单主表} where " & filters)

--  作者：hongye
--  发布时间：2020/1/3 12:26:00
--

此主题相关图片如下：01.jpg

--  作者：hongye
--  发布时间：2020/1/3 12:26:00
--

此主题相关图片如下：02.jpg

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:问题.txt

--  作者：hongye
--  发布时间：2020/1/3 12:27:00
--
还是错误，按键的全部代码全部在记事本里了，帮我看看

--  作者：有点蓝
--  发布时间：2020/1/3 13:38:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看是那一句代码出错

--  作者：hongye
--  发布时间：2020/1/3 13:46:00
--

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单表.xls") \'打开模板
MessageBox.Show(2)
Dim fl As String = "d:/订单信息/"+(e.Form.Controls("客户名称").Text) + "/"+(e.Form.Controls("合同号").Text) +"- "+(e.Form.Controls("款号").Text) +" 订单指示.xls"
MessageBox.Show(3)
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 & "\'"
MessageBox.Show(4)
book.AddDataTable("订单主表","彬阳数据","Sel ect * from {订单主表} where " & filters)
MessageBox.Show(5)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
MessageBox.Show(6)
Book.Build() \'生成报表
MessageBox.Show(7)
Book.Save(fl)
MessageBox.Show(8)
sheet = book.Sheets(0)
红色部分开始

--  作者：有点蓝
--  发布时间：2020/1/3 13:48:00
--
book.AddDataTable("订单主表","彬阳数据","Sel ect * from {订单主表} where " & filters)