다음과 같은 오류가 발생하는데 도움부탁드립니다.
먹딸기
2023.04.01
어느 블로거분의 글을 따라하다가 다음과 같은 함수 실행에서 에러가 발생했습니다. 시세데이터.Add(통합데이터(x))이부분을 실행하려고 하니 인덱스 범위가 초과되었다면서 예외오류를 뱉어냅니다.어떻게 하면 실행되게 할 수 있을까요...? 초보라 여러가지 어려움이 많습니다. 헬프미
Public Function getData(ByVal day As Integer) As ArrayList Dim 페이지수 As Integer = Math.Ceiling((day / 10)) Dim 통합데이터 As ArrayList Dim 시세데이터 As ArrayList = New ArrayList()
통합데이터 = getPages(페이지수) If IsNothing(통합데이터) = False Then
For x = 0 To day * 7 - 1 시세데이터.Add(통합데이터(x)) Next Else 시세데이터 = Nothing End If Return 시세데이터
End Function
-
다은
redim을사용하여 배열크기를 설정해주세요.