1

私は学校向けのフィルム検索のコーディングを行っていましたが、この問題に遭遇しましたが、解決方法がわかりません。

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() は動作していない部分です

4

3 に答える 3

6

エラーメッセージがタイトルにある場合は、 currentRow を次のように宣言したに違いありません

Dim currentRow As String

代わりに、1 次元配列として宣言する必要があります

Dim currentRow() as String
于 2013-10-04T20:14:13.087 に答える