老师，我要在里面再增加一个节点（规格）加在最后。谢谢老师。
Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
Case 0
Dim dr As DataRow
dr=DataTables("商品目录_Table1").Find("项目分类 = '" & Value(0) & "'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("商品目录_Table1").FindRow(dr)
If wz >= 0 Then
Tables("商品目录_Table1").Position = wz
End If
End If
Case 1
Dim dr As DataRow
dr=DataTables("商品目录_Table1").Find("项目分类 = '" & Value(0) & "'And [商品名称]='" & Value(1) & "'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("商品目录_Table1").FindRow(dr)
If wz >= 0 Then
Tables("商品目录_Table1").Position = wz
End If
End If
End Select
加好友 
发短信
Post By：2017/3/28 8:13:00 [只看该作者]
