以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98308)
--  作者：苏州老街
--  发布时间：2017/3/28 8:13:00
--  [求助]目录树
老师，我要在里面再增加一个节点（规格）加在最后。谢谢老师。



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
--  作者：有点蓝
--  发布时间：2017/3/28 8:54:00
--  
参考：http://www.foxtable.com/webhelp/scr/0888.htm