请高手看看问如下代码内存溢出:
Public Function GetHByPos(ByRef vCell As GSCell, ByVal vStr As String, ByRef iNum As Integer) As Integer
'Note:Add by braveboy at 20040525
'Description:通过单元格位置获取单元格行号
On Error GoTo Err1
Dim i As Integer
Dim sLabel As String
Dim sData, iPos As Integer
For i = Len(vStr) To 1 Step -1
If Not IsNumeric(Mid(vStr, i, 1)) Then Exit For
Next
If i < Len(vStr) Then
sLabel = right(vStr, Len(vStr) - i)
Else
GetHByPos = -1
Exit Function
End If
For i = 0 To vCell.Rows - 2
vCell.DoGetCellData -1, i, sData
iPos = InStr(1, sData, ".")
If iPos > 1 Then
If Trim(left(sData, iPos - 1)) = Trim(sLabel) Then iNum = iNum + 1
End If
If Trim(sData) = Trim(sLabel) Then
GetHByPos = i
Exit Function
End If
Next
GetHByPos = -1
Err1:
PrintErr Err.Description, "GetHByPos"
End Function
如上代码会溢出,请高手看看那里有问题
scott