台灣最大程式設計社群網站
線上人數
1165
 
會員總數:246274
討論主題:189809
歡迎您免費加入會員
討論區列表 >> VB6 >> 如何將陣列資料完整顯示在Crystal Report??
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何將陣列資料完整顯示在Crystal Report??
價值 : 10 QP  點閱數:1810 回應數:0
樓主

採地雷
初學者
30 1
82 1
發送站內信

不多說 先貼程式
Sub Form_Load()
ConnectionString = GetTheNumber() '開始跟ASP連線
Set OBJdbConnection = CreateObject("ADODB.Connection")
OBJdbConnection.Open ConnectionString '開啟資料庫(建立通到確認連線)'
Set dataction = CreateObject("ADODB.Recordset")
dataction.Open "select * from nwsccode", OBJdbConnection, 1, 1
Dim arr() As String
n = 0
While Not dataction.EOF '算陣列大小
n = n + 1
dataction.MoveNext
Wend
ReDim arr(n, 6)
dataction.MoveFirst
n = 0
While Not dataction.EOF '將所有資料的SET_ID放入
arr(n, 0) = dataction(0)
arr(n, 1) = dataction(1)
arr(n, 2) = dataction(2)
arr(n, 3) = dataction(3)
arr(n, 4) = dataction(4)
arr(n, 5) = dataction(5)
n = n + 1
dataction.MoveNext
Wend
dataction.MoveFirst
n = 0
Dim CRXParamDefs As CRAXDRT.ParameterFieldDefinitions '設定報表軟體
Dim CRXParamDef As CRAXDRT.ParameterFieldDefinition
Dim Cristal As New CrystalReport1
Set CRXParamDefs = Cristal.ParameterFields '設定索引值
For n = 0 To 9
'傳值給cristal report
For Each CRXParamDef In CRXParamDefs
With CRXParamDef
Select Case .ParameterFieldName
Case "zero" '傳給fProgID資料
.SetCurrentValue arr(n, 0)
Case "zer1" '傳給fProgID資料
.SetCurrentValue arr(n, 1)
Case "zer2" '傳給fProgID資料
.SetCurrentValue arr(n, 2)
Case "zer3" '傳給fProgID資料
.SetCurrentValue arr(n, 3)
Case "zer4" '傳給fProgID資料
.SetCurrentValue arr(n, 4)
Case "zer5" '傳給fProgID資料
.SetCurrentValue arr(n, 5)
End Select
End With
Next
Next n
Cristal.EnableParameterPrompting = False '使cristal report不向使用者要資料
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Cristal
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
我的程式是顯示陣列讀取資料庫的前面10筆的資料
我想問的是我要如何完整顯示前面10筆的資料 可是我寫出來卻是顯示第10筆的資料 請問要如何顯示全部的資料??
先謝謝了

搜尋相關Tags的文章: [ Crystal Report ] , [ VB6.0 ] ,
本篇文章發表於2012-07-10 11:52
目前尚無任何回覆
   

回覆
如要回應,請先登入.