以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  指定选择目录树  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56447)

--  作者:qianqian1530
--  发布时间:2014/9/5 11:52:00
--  指定选择目录树
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("数据表","地址"," > ")

******数据表

邮编|地址

******


我想做的是, 当 在 TextBox 输入 邮编,单击搜索, 就会在目录树里面,选择指定的 地址。(每个地址,都有唯一的邮编).

有办法 做到么.....大侠们

--  作者:有点甜
--  发布时间:2014/9/5 11:57:00
--  

 循环这个目录树,判断值是否相同即可,现在你是哪里遇到问题?

 

 请上传具体例子。


--  作者:qianqian1530
--  发布时间:2014/9/5 12:31:00
--  
   
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:雅虎拍卖 - 副本.rar


--  作者:有点甜
--  发布时间:2014/9/5 14:28:00
--  

SelectedIndexChanged 事件

 

\'\'\'...
Dim fdr As DataRow = DataTables("ヤフオク_カテゴリ").Find("カテゴリID = \'" & e.Sender.Text & "\'")
If fdr IsNot Nothing Then
    dim trv as WinForm.TreeView = e.Form.Controls("TreeView1")
    For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.FullPath = fdr("カテゴリ").replace(" > ", "\\") Then
            trv.SelectedNode = nd
            nd.ExpandAll
            exit for
        end if
    Next
End If