2011-04-18 50 views
1

我一直具有ArrayGroup(count).dateDate = valueListString(0)錯誤信息,不知道什麼是錯用下面的代碼,請大家幫忙。錯誤消息「使用new關鍵字來創建一個對象實例」

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 
+0

什麼是'ArrayGroup'?它是如何定義和初始化的? – benwong 2011-04-18 08:39:23

+0

已將ArrayGroup的定義添加到代碼中,謝謝。 – 2011-04-18 09:43:22

回答

0

ArrayGroupNothing

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

+0

謝謝。問題解決了。 – 2011-04-18 11:57:50

0

ArrayGroup可能確實在其中包含項目。

所以前行ArrayGroup(count).dateDate = valueListString(0)嘗試添加到陣列

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

我試圖在「ArrayGroup(count).dateDate = valueListString(0)」行之前添加「ArrayGroup(count)= New dataAttribute」,但仍然無法工作。 – 2011-04-18 09:44:45

0

它不會出現你的尺寸你數組:

嘗試

使用ReDim ArrayGroup(0)

看看ReDimReDim Preserve

Private ArrayGroup() As dataAttribute 

只是聲明ArrayGroup是數據屬性類型的數組,但不指定多少成員都在上面。

相關問題