尝试填充数组时出现“ System.NullReferenceException”

Question

这是我的代码：

Public UserBookings() As String

    If dr.Read() Then
        Dim intCounter As Integer
        intCounter = 0
        While dr.Read()
            UserBookings(intCounter) = dr(0)
            intCounter = intCounter + 1
        End While
        Return UserBookings
    Else
        Return False
    End If

但是我在运行时收到此错误：

A first chance exception of type 'System.NullReferenceException' occurred in Project.exe

而且该数组似乎还没有填满。

我能做些什么来解决这个问题？ 请记住，这是一个动态数组（我不确定它会有多少个条目），所以我看不到如何遍历每个条目并为其赋予初始值。

谢谢。

Answer 1

看来您dr（0）是一个空对象，但尝试在其末尾添加.ToString（）。 但是，这当然取决于UserBookings（）是什么数据类型。

与我的同事交谈后

您可能应该使用dr.HasRows而不是“ if dr.read（）”，因为您将丢失整行。

Answer 2

在这里列出的可能答案的问题中，我还看到当方法的返回类型为string时，您在某一时刻返回False。 那是不允许的。 您可以返回Nothing或String.Empty，但不能返回False。

Answer 3

这里最简单的选择是认识到您可以使用其他结构，例如ArrayList（或者更好的是List（of String））

这样，对象将动态增长，直到您加载了所有项目，然后您可以将结果作为数组返回

以下是两个可能的选项（一般使用List（Of x）。

  Function ReadArray(ByVal dr As IDataReader) As String()
    Dim tempstorage As New List(Of String)
    While dr.Read()
      tempstorage.Add(dr(0))
    End While

    Return tempstorage.ToArray()
  End Function

-

  Function ReadArray2(ByVal dr As IDataReader) As String()
    Dim tempstorage As New ArrayList()
    While dr.Read()
      tempstorage.Add(dr(0))
    End While

    Return tempstorage.ToArray(GetType(String))
  End Function

-

注意：我添加了一些其他代码（假设dr是一个DataReader，并且您将此函数称为