在VB6中的Else-If分支

时间:2015-09-28 14:41:56

标签: vba vb6

我写了以下代码:

    If s_Temp3 Then 

            sdbname = s_Temp3

    ElseIf Not IsEmpty(s_Temp1)

            sdbname = s_Temp1

    Else 

            sdbname = s_Temp2

    End If

End If  

当我尝试编译时,它在ElseIf Not IsEmpty(s_Temp1)的行上给出了语法错误,我不知道为什么。

有谁知道这是什么问题?感谢

1 个答案:

答案 0 :(得分:2)

在该行的末尾需要Then

ElseIf Not IsEmpty(s_Temp1) Then

更详细的说明,在您澄清之后,您需要

 If s_Temp3 Then     
     sdbname = s_Temp3    
 Else
     If Not IsEmpty(s_Temp1) Then    
         sdbname = s_Temp1    
     Else     
         sdbname = s_Temp2    
     End If    
 End If