Object arrary werfen Fehler auf Elementart auf ReDim

Question

habe ich versucht Wert auf ein Objektarray zuzuordnen, die wie folgt definiert ist ...

Dim englishTextAry As Object(,) = New Object(,) {} 

Ich Looping durch eine DataReader- und zu versuchen, die Werte zuweisen zu diesem Array mit dem folgenden Code ....

While rdr.Read() 
    Dim recID As String = rdr.Item(0) 
    Dim dataVal As String = rdr.Item(1) 

    ReDim Preserve englishTextAry(recID, dataVal) 

End While 

Aber die ReDim wirft einen Fehler auf DataVal nicht ein Integer.

Was mache ich hier falsch? Kann mir jemand in die richtige Richtung zeigen?

Danke,

Answer 1

Sie werden eine schreckliche Anzahl von ReDims für eine nicht geringe Anzahl von Zeilen machen. Sie könnten eine Klasse verwenden, um die ID-Wert-Paare und eine Liste zu halten, um sie zu halten:

Module Module1 

    Class IdValPair 
     Property RecId As String 
     Property DataVal As String 
    End Class 

    Sub Main() 
     Dim myItems As New List(Of IdValPair) 
     '... 
     While rdr.Read 
      myItems.Add(New IdValPair With {.RecId = rdr.Item(0), .DataVal = rdr.Item(1)}) 
     End While 

    End Sub 

End Module 

... und Ihre Frage zu beantworten, die ReDim-Anweisung nimmt Zahlen für die Größen bis ReDim.

Answer 2

Blick in die Arraylist-Objekt. Normalerweise verwende ich das zum dynamischen Hinzufügen/Abrufen von Werten mit viel einfacherem Code als normale Arrays.