Foxtable(狐表)用户栏目专家坐堂 → 如何将SQL的数据绑定到EXCEL报表里呢


  共有4121人关注过本帖树形打印复制链接

主题:如何将SQL的数据绑定到EXCEL报表里呢

帅哥哟,离线,有人找我吗?
hongye
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
如何将SQL的数据绑定到EXCEL报表里呢  发帖心情 Post By:2020/1/2 19:50:00 [只看该作者]

以下是打印预览按键
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问题.txt

以下是EXCEL报表模板
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单表.xls

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



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/3 8:32:00 [只看该作者]

方法1、SQL的数据取出来后绑定到窗口表,模板里使用窗口表名称


 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By: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)

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/3 11:37:00 [只看该作者]

book.AddDat aTable("订单主表","彬阳数据","Sel ect * from {订单主表} where " & filters)

 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/1/3 12:26:00 [只看该作者]


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


 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/1/3 12:26:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:02.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问题.txt



 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/1/3 12:27:00 [只看该作者]

还是错误,按键的全部代码全部在记事本里了,帮我看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/3 13:38:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看是那一句代码出错

 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By: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)
红色部分开始

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/3 13:48:00 [只看该作者]

book.AddDataTable("订单主表","彬阳数据","Sel ect * from {订单主表} where " & filters)

 回到顶部
总数 31 1 2 3 4 下一页