将读取器项目存储在数组中

Dim myReader As OleDbDataReader
Dim Index As Integer
Dim status As Array
Index = 0
cmd.CommandText = "SELECT CPALLOCATIONTIME from RECORDMASTER where ID='" & TxtID.Text & "'"
cmd.CommandType = CommandType.Text
myReader = cmd.ExecuteReader()

Do While myReader.Read()
     status(Index) = myReader.Item(0)
     Index = Index + 1
Loop

myReader.Close()

If (Index = 2) Then
If ((status(0) = "Fp" Or status(0) = "Op") And status(1) = "OXp") Then
    qText = TxtSTS.Text + "X"
    Update = True
    ApplicationStatus = 2
ElseIf ((status(0) = "Fp" Or status(0) = "Op") And status(1) = "FXp") Then
    qText = TxtSTS.Text + "X"
    Update = True
    ApplicationStatus = 2
End If

有人可以帮我吗status(Index) = myReader.Item(0)，转换时出错

1. 你希望你的数组grow随着元素的添加。这不是数组的用途。用一个List(Of T)反而。 （参见MSDN 上的示例 http://msdn.microsoft.com/en-us/library/6sh2ey19.aspx了解确切的语法。）

2. 确保从阅读器读取的数据具有正确的数据类型。您有两种方法可以做到这一点：

   1. 投射它（例如DirectCast(myReader(0), String)) or
   2. （更好）使用已经返回正确数据类型的 reader 方法，例如myReader.GetString(0).