Question

我一直在为学校编写电影搜索的东西，我遇到了这个问题，我不知道如何解决它。

While Not FilmSearcher.EndOfData         'loop until end of file
    currentRow = FilmSearcher.ReadFields()   'read in the fields of each line
    For j = 0 To 3
        Films(i, j) = currentRow(j)      'put the fields into film array
    Next

    i = i + 1
End While

currentRow = FilmSearcher.ReadFields（）是无效的部分

Answer 1

如果错误信息在您的标题中，那么我敢打赌您已将currentRow声明为

Dim currentRow As String

而是需要将其声明为一维数组

Dim currentRow() as String

Answer 2

您的currentRow变量未正确声明。而不是：

Dim currentRow As String

您需要以下其中一项：

Dim currentRow() As String
Dim currentRow As String()

您选择哪一个是优先考虑的问题。他们的意思是一样的。您也可以完全避免变量：

While Not FilmSearcher.EndOfData        
    'read in the fields of each line and put into film array
    Films(i) = FilmSearcher.ReadFields()          
    i = i + 1
End While

Answer 3

在我的情况下，我声明我的方法错误地返回一个数组：

Function GetById(ByVal id As Integer) As String

，语法应为：

Function GetById(ByVal id As Integer) As String()

而我可以返回一个字符串数组：

Dim arrayOfStrings() As String
arrayOfStrings = {"John", "Josh", "Jason", "Jill", "Kunta Kinte"}
Return arrayOfStrings

字符串＆＃39; 1维数组的值＆＃39;无法转换为＆＃39; String＆＃39;

3 个答案: