主题：[求助]“for” 必须以匹配的 “next” 结束

Dim kd As String=""

Dim nd1 As WinForm.TreeNode

For Each dr As DataRow In dt.Datarows
    If dr("分类号")="3" Then kd ="生产技术管理"
    Else If dr("分类号")="8" Then kd ="基本建设" 
    Else kd ="设备类" 
    End If
    nd1.nodes.add("0101",kd)

Next

保存弹出“for” 必须以匹配的 “next” 结束警告

把    If dr("分类号")="3" Then kd ="生产技术管理"
    Else If dr("分类号")="8" Then kd ="基本建设" 
    Else kd ="设备类" 
    End If
删掉可以保存

什么问题？其他都不用管，我没觉得Next匹配不上啊