以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]TreeView的Level属性  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13890)

--  作者:hanxuntx
--  发布时间:2011/10/31 15:10:00
--  [求助]TreeView的Level属性


图片点击可在新窗口打开查看此主题相关图片如下:qq截图1.png
图片点击可在新窗口打开查看


 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图1.png
图片点击可在新窗口打开查看

 

同样的代码,为什么点击客服部可以查询到数据,点击生产部的节点就不行呢?

 

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim r As Integer
With Tables("C10分组及流程权限设置")
    If tv.SelectedNode.Level = 0 Then
        r = .FindRow("[部门] = \'" & tv.SelectedNode.Name & "\'", .Position + 1, True ) 

        If r >= 0 Then 

            .Position = r 

        End If
    Else
        r = .FindRow("[分组] = \'" & tv.SelectedNode.Name & "\'", .Position + 1, True ) 

        If r >= 0 Then 

            .Position = r 

        End If
    End If
End With

[此贴子已经被作者于2011-10-31 15:18:38编辑过]

--  作者:hanxuntx
--  发布时间:2011/10/31 15:20:00
--  [求助]TreeView的Level属性

顶一下


--  作者:狐狸爸爸
--  发布时间:2011/10/31 15:25:00
--  
看不出问题来,用例子说话。