选择具有选项严格打开的字符的案例

Question

设置选项严格后，我会收到以下语法错误：

Select Case Me.oWorker.Relationship_Status
    Case "S"
        Me.opSingle.Checked = True
    Case "C"
        Me.opMarried.Checked = True
    Case "O"
        Me.opAnotherStatus.Checked = True
End Select

编译器说，选项strict禁止从String到Char的隐式转换。 oWorker对象的Relationship_Status属性当然是Char。

如何在不将Relationship_status属性更改为String的情况下解决此问题？我是否真的需要像这样使用CChar：CChar（＆＃34; S＆＃34;）？

Answer 1

之后添加一个c。这是VB char语法：

Select Case Me.oWorker.Relationship_Status 
    Case "S"c
        Me.opSingle.Checked = True 
    Case "C"c
        Me.opMarried.Checked = True 
    Case "O"c
        Me.opAnotherStatus.Checked = True
End Select