作者madein (無聊的我)
看板Visual_Basic
標題[VB6 ] 請問 陣列索引超出範圍?
時間Tue Dec 21 14:11:13 2010
不好意思 想請問各位高手
我的東西跑出數據要存入sql中
會在某一組出錯 出現陣列索引超出範圍 不曉得該如何處理?
Function count_TOT()
Hand = FreeFile
TOT = 0
Open "D:\test1.rsrp" For Input As #Hand (test1是數據的檔案 然後作加總)
Do While Not EOF(Hand)
Line Input #Hand, tmpS
If InStr(tmpS, "TravTime;") > 0 Then '用 TravTime 當KEY來找到標題列
Do While Not EOF(Hand)
Line Input #Hand, tmpS
tmpV = Split(tmpS, ";")
TOT = TOT + Val(tmpV(5)) 這行出現錯誤 (加總的值)
Loop
Exit Do
End If
Loop
Close #Hand
SQLstring = "Update Main1Table Set TravelTime = " & TOT & " WHERE dataID = (Select Top 1 dataID from Main1Table order by dataID DESC)"
rs.Open SQLstring, cn, adOpenStatic
以下是變數宣告
Dim ar(30) As Double '路線機率值
Dim x, i, j As Integer
Dim s(10), l(5), m(5), w(10), r(5) As Integer
Dim z As Double '機率值
Dim tmp As Integer
Dim lastpoint As Integer
Dim datanum, gennum As Integer
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim Hand As Integer, tmpS As String, tmpV() As String
Dim TOT As Double
Dim mask(30) As Integer
Dim generation, act As Integer
Dim ab(30, 30) As Double
麻煩各位高手了 謝謝
歡迎站內信
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 120.101.24.97
1F：→ MOONRAKER:檢查ubound(tmpV)等於多少不就結了 12/21 17:08