以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]“for” 必须以匹配的 “next” 结束  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20302)
--  作者：云淡风轻
--  发布时间：2012/6/4 14:16:00
--  [求助]“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匹配不上啊
--  作者：ybil
--  发布时间：2012/6/4 14:28:00
--  
......
Elseif  非 Else if
...........
--  作者：云淡风轻
--  发布时间：2012/6/4 17:17:00
--  

已试，不是这个原因