Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树下拉时的筛选


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

主题：[求助]目录树下拉时的筛选
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]目录树下拉时的筛选  发帖心情 Post By：2015/2/5 11:11:00 [显示全部帖子]

老师，
    目录树下拉时怎么能根据下拉文本框的名称或是表的列明进行自动筛选呢

附件仅仅是例子实际不会用在这个表中


目录树 有01 财务部  02 结算部
 

期望点击名称 为 财务部DropDownBox 显示 目录树DropDownForm 的节点 01 财务的部分 
同样，点击名称 为 结算部DropDownBox 显示 目录树DropDownForm 的节点 02 结算部的部分

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:部门档案.rar


[此贴子已经被作者于2015-2-6 10:15:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/2/5 12:07:00 [显示全部帖子]

老师，
   如果有递归函数的情况 是否可以有快捷的方式

'Dim txt As WinForm.DropDownBox = Forms("目录树的筛选").DropDownBox
'Dim MLS As WinForm.Form = Forms("目录树")
'Select txt.Name
    'Case "财务部"
        'Dim tr As WinForm.TreeView = e.Form.Controls("部门档案.tv")
        'Dim nd As WinForm.TreeNode
        'Dim dt As DataTable = DataTables("部门档案")
        'tr.StopRedraw()
        'tr.Nodes.Clear
        'Dim gz As String = DataTables("分类编码方案").Find("基础档案名称 = '部门档案'")("编码规则")
        'For Each dr As DataRow In dt.Select("","编码规则")
            'If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then
                'nd = tr.Nodes.Add(dr("编码规则"),dr("编码规则") & " " & dr("编码名称"))
                'Functions.Execute("AddChildren",nd,dt,gz)
            'End If
        'Next
        'TR.Nodes(01).EnsureVisible-------------------------------------------------------------财务部是01
        'tr.ResumeRedraw()
        '
        '
    'Case "结算部"
        'Dim tr As WinForm.TreeView = e.Form.Controls("部门档案.tv")
        'Dim nd As WinForm.TreeNode
        'Dim dt As DataTable = DataTables("部门档案")
        'tr.StopRedraw()
        'tr.Nodes.Clear
        'Dim gz As String = DataTables("分类编码方案").Find("基础档案名称 = '部门档案'")("编码规则")
        'For Each dr As DataRow In dt.Select("","编码规则")
            'If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then
                'nd = tr.Nodes.Add(dr("编码规则"),dr("编码规则") & " " & dr("编码名称"))
                'Functions.Execute("AddChildren",nd,dt,gz)
            'End If
        'Next
        'tr.ResumeRedraw()
'End Select
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/2/6 11:38:00 [显示全部帖子]

有点甜老师，
   图片点击可在新窗口打开查看按照代码没实现目的，一定是我写的有问题，烦您在帮忙看下，谢谢。

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


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/2/6 11:40:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：颜色,DropDownOpening
详细错误信息：
Object reference not set to an instance of an object.
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/2/6 12:00:00 [显示全部帖子]

快乐崇拜

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