作者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