Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开目录树窗口节点停留位置问题


  共有2860人关注过本帖树形打印复制链接

主题：打开目录树窗口节点停留位置问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/10 16:12:00 [显示全部帖子]

窗口打开事件，从单元格取得之前的值，循环所有节点，比较得到指定节点，然后选中

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/10 17:05:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/scr/2961.htm


        For Each nd As WinForm.TreeNode In trv.AllNodes
            If nd.Text.IndexOf(drp.Text) >= 0 Then
                trv.StopRedraw()
                trv.SelectedNode = nd
                nd.EnsureVisible()
                trv.ResumeRedraw()
                Exit For
            End If
        Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/10 20:22:00 [显示全部帖子]

DropDownOpened事件


Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim v1 As String = e.Form.DropDownBox.Text

For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Text.IndexOf(v1) >= 0 Then
        trv.StopRedraw()
        trv.SelectedNode = nd
        nd.EnsureVisible()
        trv.ResumeRedraw()
        Exit For
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/11 17:01:00 [显示全部帖子]

5楼代码后面加上

Dim v1 As String = tables("xx表").current("xxx列")

For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Text.IndexOf(v1) >= 0 Then
        trv.StopRedraw()
        trv.SelectedNode = nd
        nd.EnsureVisible()
        trv.ResumeRedraw()
        Exit For
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/12 8:47:00 [显示全部帖子]

例子按照示例改的，不行就上传你的例子吧

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:下拉目录树.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/12 11:34:00 [显示全部帖子]

你的意思是打开目录树后，默认选中之前其它行选择过的数据？

那就用全局变量存储一下最后选择的内容
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/12 11:58:00 [显示全部帖子]

NodeMouseClick事件加上

vars("node") = e.Node.Text

AfterLoad事件

Dim v1 As String = Tables("客户").Current("县市")
改为
Dim v1 As String = vars("node")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/12 14:09:00 [显示全部帖子]

道理一样，记录之前选择了哪一行。窗口打开后查询定位：http://www.foxtable.com/webhelp/scr/0553.htm

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 6 次数据查询