Foxtable(狐表)用戶欄目專家坐堂 → 如何將SQL的數據綁定到EXCEL報表里呢


  共有650人關注過本帖樹形打印復制鏈接

主題:如何將SQL的數據綁定到EXCEL報表里呢

帥哥喲,離線,有人找我嗎?
hongye
  1樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:童狐 帖子:265 積分:1878 威望:0 精華:0 注冊:2011/3/15 12:49:00
如何將SQL的數據綁定到EXCEL報表里呢  發帖心情 Post By:2020/1/2 19:50:00 [只看該作者]

以下是打印預覽按鍵
 下載信息  [文件大小:   下載次數: ]
圖片點擊可在新窗口打開查看點擊瀏覽該文件:問題.txt

以下是EXCEL報表模板
 下載信息  [文件大小:   下載次數: ]
圖片點擊可在新窗口打開查看點擊瀏覽該文件:訂單表.xls

不知道怎么做了,能不能幫我改一下,謝謝



 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  2樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:50649 積分:256735 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2020/1/3 8:32:00 [只看該作者]

方法1、SQL的數據取出來后綁定到窗口表,模板里使用窗口表名稱


 回到頂部
帥哥喲,離線,有人找我嗎?
hongye
  3樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:童狐 帖子:265 積分:1878 威望: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


加好友 發短信
等級:超級版主 帖子:50649 積分:256735 威望:0 精華:8 注冊: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


加好友 發短信
等級:童狐 帖子:265 積分:1878 威望:0 精華:0 注冊:2011/3/15 12:49:00
  發帖心情 Post By:2020/1/3 12:26:00 [只看該作者]


圖片點擊可在新窗口打開查看此主題相關圖片如下:01.jpg
圖片點擊可在新窗口打開查看


 回到頂部
帥哥喲,離線,有人找我嗎?
hongye
  6樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:童狐 帖子:265 積分:1878 威望:0 精華:0 注冊:2011/3/15 12:49:00
  發帖心情 Post By:2020/1/3 12:26:00 [只看該作者]


圖片點擊可在新窗口打開查看此主題相關圖片如下:02.jpg
圖片點擊可在新窗口打開查看
 下載信息  [文件大小:   下載次數: ]
圖片點擊可在新窗口打開查看點擊瀏覽該文件:問題.txt



 回到頂部
帥哥喲,離線,有人找我嗎?
hongye
  7樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:童狐 帖子:265 積分:1878 威望:0 精華:0 注冊:2011/3/15 12:49:00
  發帖心情 Post By:2020/1/3 12:27:00 [只看該作者]

還是錯誤,按鍵的全部代碼全部在記事本里了,幫我看看

 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  8樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:50649 積分:256735 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2020/1/3 13:38:00 [只看該作者]

調試技巧:http://www.ezgnlh.tw/webhelp/scr/1485.htm,看是那一句代碼出錯

 回到頂部
帥哥喲,離線,有人找我嗎?
hongye
  9樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:童狐 帖子:265 積分:1878 威望: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


加好友 發短信
等級:超級版主 帖子:50649 積分:256735 威望:0 精華:8 注冊: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 下一頁
229期22选5开奖结果