错误消息“使用新关键字创建对象实例”

Question

我一直在 ArrayGroup(count).dateDate = valueListString(0) 处收到错误消息，不知道下面的代码有什么问题，请帮忙。

Structure dataAttribute
    Dim dateDate As Date
    Dim timeString As String
    Dim volString As String
    Dim openString As String
    Dim closeString As String
    Dim minString As String
    Dim maxString As String
End Structure

Private ArrayGroup() As dataAttribute

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)     Handles Button1.Click
    Dim currencyString As String
    Dim valueListString() As String

    currencyString = dataTextFieldParser.ReadToEnd
    RichTextBox1.Text = currencyString

    strArr = currencyString.Split(Environment.NewLine)

    For count = 1 To strArr.Length - 1
        valueListString = strArr(count).Split(";")

        ArrayGroup(count).dateDate = valueListString(0)
        ArrayGroup(count).timeString = valueListString(1)
    Next


End Sub

Answer 1

ArrayGroup 是Nothing。

该行

Private ArrayGroup() As dataAttribute

不会为 ArrayGroup 赋值，因此它不会被实例化，当您尝试使用它时，您会收到正常的块错误。

您可能想将函数的结尾更改为类似的内容。

    Redim ArrayGroup(strArr.Length - 1) As dataAttribute


    For count = 1 To strArr.Length - 1
         valueListString = strArr(count).Split(";")

          ArrayGroup(count).dateDate = valueListString(0)         
          ArrayGroup(count).timeString = valueListString(1)     
    Next
End Sub 

请注意ReDim。我不确定您是否需要 As。

Answer 2

ArrayGroup 中可能确实有项目。

所以在行 ArrayGroup(count).dateDate = valueListString(0) 之前尝试添加到数组

ArrayGroup(count) = New ... what ever type should be in the array...

Answer 3

您似乎没有确定数组的尺寸：

尝试

ReDim ArrayGroup(0)

查看 ReDim 和 ReDim Preserve

Private ArrayGroup() As dataAttribute

只是声明 ArrayGroup 是一个 dataAttribute 类型的数组，但没有指定其中有多少个成员。