1

我正在使用vb.net我有以下对象数组，我想从给它一个名称中提取所有真实值并将其添加到数组中这是对象数组 在此处输入图像描述

这是我到目前为止所尝试的：

  Dim myarray() As String
        Dim number As Integer = 0
        If resultArray(0).BolComment Then

            myarray(number) = "comment"
            number = number + 1
        End If
        If resultArray(0).BolComplete Then

            myarray(number) = "complete"
            number = number + 1
        End If
        If resultArray(0).BolFinished Then

            myarray(number) = "Finished"
            number = number + 1
        End If
        If resultArray(0).BolOutCome Then

            myarray(number) = "OutCome"
            number = number + 1
        End If
        If resultArray(0).BolStatred Then

            myarray(number) = "Started"
            number = number + 1
        End If
        If resultArray(0).BolUser Then

            myarray(number) = "User"
            number = number + 1
        End If

这给了我一个错误：该变量之前已使用过

问题我如何提取所有具有true价值的项目并将push其提取到一个新数组中with，给它一个新的name 谢谢

4

1 回答 1

2

我认为您的问题是您没有将数组初始化为特定大小，也没有在每次添加新项目时重新调整它的大小。但是，最好只使用List(T)该类：

Dim list As New List(Of String)()
If resultArray(x).BolComment Then
    list.Add("comment")
End If
If resultArray(0).BolComplete Then
    list.Add("complete")
End If
If resultArray(0).BolFinished Then
    list.Add("Finished")
End If
If resultArray(0).BolOutCome Then
    list.Add("OutCome")
End If
If resultArray(0).BolStatred Then
    list.Add("Started")
End If
If resultArray(0).BolUser Then
    list.Add("User")
End If

然后，如果您需要它作为实际数组，请执行以下操作：

Dim myarray() As String = list.ToArray()
于 2012-08-23T19:59:14.293 回答