使用if语句错误检查dr的值

Question

我的数据库（访问）中有一个字段，其中包含我需要在显示时更改的值。 例如，如果从数据库接收到的初始值为“ D”，那么我需要将其更改为“已销毁”。 我曾尝试使用各种if语句，但由于缺乏编程知识而无法前进。 Option Strict不允许=并建议Is。

我想也许我应该看的是一个switch语句。 我这样说是因为在显示之前，我可能不得不循环选择12个不同的值。 我已经包含了我已经完成的部分代码，如果有人可以帮助我完成此操作，将不胜感激。 非常感谢。

While dr.Read()  
    lvRequests.Items.Add((dr(0)).ToString()).UseItemStyleForSubItems = False
    lvRequests.Items(lvRequests.Items.Count - 1).SubItems.Add(CDate(dr(5)).ToShortDateString())
    lvRequests.Items(lvRequests.Items.Count - 1).SubItems.Add(dr(1).ToString())

    With lvRequests.Items(lvRequests.Items.Count - 1).SubItems.Add(dr(3).ToString())
        If dr(3) Is "D" Then
            .dr(3) = "destroyed"
        Else
            If dr(3) Is "O" Then
                .dr(3) = "out"
            End If
        End If
    End With

    lvRequests.Items(lvRequests.Items.Count - 1).SubItems.Add(dr(9).ToString())    
    lvcount += 1  
End While

Answer 1

首先尝试检查是否存在任何行，这将防止NullReferenceException

 While dr.Read()  
   If dr.HasRows
   ...
   ...

这应该是您拥有的方法，只是更改为使用ElseIf

If dr(3) Is "D" Then
     dr(3) = "destroyed"
ElseIf dr(3) Is "O" Then
     dr(3) = "out"
End If