VB简单的脚本错误编译循环

-2

我有一个非常简单的脚本但它给我一个错误，而它编译：VB简单的脚本错误编译循环

Sub Unit_Status() 

    Dim temp, w, j 
    On Error Resume Next 

    For j=0 To 5 
     temp = 0 
     w = SmartTags("DB400")(j) 

     If (w And &h10) Then 
      temp=4 ' 

     Else If (w And &h2) Then 
      temp=1 

     Else     
      temp=0 

     End If 

     SmartTags("Unit_Status")(j) =temp 

    Next 
End Sub

的智能标签是另一个软件的一部分。我得到的错误是'意外的下一个'。不应该接近下一个？

谢谢 - 我不熟悉VB，只能将它用作另一个软件的一部分。

来源

2016-05-23 tanya

vb.net <> VBScript中 - 请选择真正适用于你的问题的语言标记。 – Filburt

为了检查语法和数据类型，在vb.net项目中启用编译选项'strict'怎么样？然后将这些选项恢复到当前状态。 – Paolo

正如您所写，您有2 If s但1 End If。因此，要么关闭第二If

... 
End If 
End If 
...

或将其更改为ElseIf

ElseIf (w And &h2) Then 
temp=1

来源

2016-05-23 08:32:45

VB简单的脚本错误编译循环

回答

相关问题