標題:
vb6.0與excel的問題請教高手--->資料重複取部份的
發問:
- 專家變初學者 1 級--
- 急找佳里保母~~~
- 怎樣由富士急去吉祥寺----
- a380要來台灣了,時間麻煩告訴一下唄
- 我想組台繪圖機
- 急～怎麼去南京東路三段287號呢-
- 我想做餅乾啦~~可是完全不知道怎麼配-
- 徵求手工Q版圖
- Dragnott軟體調K7的倍頻
- 2012勤益與虎尾
此文章來自奇摩知識+如有不便請留言告知
我從資料庫抓相關資料如下：項目 品號 品名 單據日期 單據號碼8 CFH-501 無鉛 2008/11/5 12348 CFH-501 無鉛 2008/11/14 5562 8 CFH-501 無鉛 2008/11/15 3248 但實際上我要的結果是如下：項目 品號 品名 單據日期 單據號碼 8 ... 顯示更多 我從資料庫抓相關資料如下： 項目 品號 品名 單據日期 單據號碼 8 CFH-501 無鉛 2008/11/5 1234 8 CFH-501 無鉛 2008/11/14 5562 8 CFH-501 無鉛 2008/11/15 3248 但實際上我要的結果是如下： 項目 品號 品名 單據日期 單據號碼 8 CFH-501 無鉛 2008/11/5 1234 ------------------- 2008/11/14 1562 ------------------- 2008/11/15 3248 我的資料庫是sql，請問我是要從sql去著手還是從vb去做？我是從VB讀取資料庫再輸出到excel。請高手教一下。須詳述因本人不聰明所以請加以說明或列出程式碼,無限感激 PS:(----表空白) 更新: 我們是希望輸出到excel，讓使用者可以更改
最佳解答:
項目應該是流水號... 我假設你的DB schema是一個品號對一個品名 從sql取資料時,記得加order by 品號 取出來的Recordset應該會是如下 CFH-501 2008/11/5 1234 CFH-501 2008/11/14 5562 CFH-501 2008/11/15 3248 Dim rs As adodb.recordset Dim MyExcelApp As excel.application Dim MyExcelWorkook As excel.workbook Dim MyExcelWorkSheet As excel.Worksheet '這裡寫你取出資料的方法 rs=blahblah Dim LastProdID As String LastProdID="" Dim iSeq As Integer iSeq=0 Do While Not rs.eof iSeq=iSeq+1 '我假設項目流水號是需要逐筆新增的 MyExcelWorkSheet.Range("項目").value=iSeq If rs.field("品號")LastProdID Then '這裡開始寫品號 品名 單據日期 單據號碼 MyExcelWorkSheet.Range("品號").value=rs.field("品號") .... Else '因為品號跟上一筆相同,所以不寫品號跟品名,只寫單據日期 單據號碼 MyExcelWorkSheet.Range("單據日期").value=rs.field("單據日期") .... End If LastProdID=rs.field("品號") rs.movenext loop
其他解答:
這任一 Report 工具都可以作的群組功能6FE6251C5F3F8A0F
留言列表
