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

方法一：

另建一[类別]表，列设[分类号]及[名称]

Dim dr,dr1 as Datarow

Dim nd1 As WinForm.TreeNode

For Each dr  In dt.Datarows

     dr1 = DataTables("类别").Find("分类号 = '" & dr("分类号")  &  "'")

      if dr1 Isnot Nothing Then

         nd1.nodes.add("0101",dr1("名称")

      End if

Next

方法二：

Dim i As Integer

Dim kd As String

Dim dr,dr1 as Datarow

Dim nd1 As WinForm.TreeNode

Dim kds1 As String() ={"1","2","3"}

Dim Names2 As String() ={"生产技术管理","基本建设","设备类"}

For Each dr  In dt.Datarows

        i=0

       For   each kd  in  kds1 

           if  kd = dr("分类号") Then

                Exit  For 

           End if 

           i+=1

     Next 

  nd1.nodes.add("0101",Names2(i))

Next