VB编码问题

Question

我有以下查询，我无法运行。

任何人都可以建议我的其他人的正确顺序以及是否因为我看不到它？

我的查询是......

select case sourcefields("Query8111.Job Code and Stage")


Case"703"
currentfield = "T703"
Case"801"
currentfield = "T801"

case else 
if right(rtrim(sourcefields("Query8111.Job Code and Stage")),4) = "-99C" then 
currentfield = "T020"
ElseIf
right(rtrim(sourcefields("Query8111.Job Code and Stage")),3) = "EXT" then 
currentfield = "T015"
else
currentfield = "T010"

end if
end select

我的错误信息是： -

所有帮助赞赏

Answer 1

自从我使用VB以来很长一段时间，这是你需要的吗？

Dim Q As String
Q = RTrim(sourcefields("Query8111.Job Code and Stage"))   

Select Case Q
Case "703"
currentfield = "T703"
Case "801"
currentfield = "T801"
Case Else
    If Right(Q, 4) = "-99C" Then
    currentfield = "T020"
    Else
        If Right(Q, 3) = "EXT" Then
        currentfield = "T015"
        Else
        currentfield = "T010"
        End If
    End If
End Select

Answer 2

我认为你的ElseIf错了。条件语句在同一行。我认为你的意思是Strings.Right，而不是right：

Select Case sourcefields("Query8111.Job Code and Stage")

Case"703"
    currentfield = "T703"
Case"801"
    currentfield = "T801"

Case Else
    If Strings.Right(rtrim(sourcefields("Query8111.Job Code and Stage")),4) = "-99C" then 
         currentfield = "T020"
    ElseIf Strings.Right(rtrim(sourcefields("Query8111.Job Code and Stage")),3) = "EXT" then 
         currentfield = "T015"
    Else
         currentfield = "T010"    
    End If
End Select