- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 【求助】目录树筛选的数据显示不完整的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119819)
-- 发布时间：2018/6/1 13:34:00
-- 【求助】目录树筛选的数据显示不完整的问题
此主题相关图片如下：x@b%gjiu``8}rla{p@pl_pj.png
目录树窗口的事件如下：
Dim Filter As String
If e.node.Text = "加载所有数据" Then
Tables("居委信息_联系方式").Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="[分块] like \'" & dr("分块") & "\' "
Case 1
Filter ="[居委] = \'" & dr("居委") & "\'"
End Select
End If
DataTables("松北所居委会信息汇总表").LoadFilter = Filter
DataTables("松北所居委会信息汇总表").Load()
问题是如天元居委分属两个分块-九亭东和九亭南，在一级目录树九亭南的点击下是显示窗口的数据未显示既是九南块又是九东块的天元居委的数据记录。着这情况下的一级目录树九南块或者九东都能显示天元居委会的事件代码怎么修改？
-- 发布时间：2018/6/1 14:24:00
--
Dim Filter As String
If e.node.Text = "加载所有数据" Then
Tables("居委信息_联系方式").Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="[分块] = \'" & dr("分块") & "\'"
filter = DataTables("松北所居委会信息汇总表").GetComboListString("居委", filter)
filter = "居委 in (\'" & filter.replace("|", "\',\'")& "\')"
Case 1
Filter ="[居委] = \'" & dr("居委") & "\'"
End Select
End If
DataTables("松北所居委会信息汇总表").LoadFilter = Filter
DataTables("松北所居委会信息汇总表").Load()
-- 发布时间：2018/6/1 14:35:00
--
没变化，与原事件显示一样，点击一级目录树“分块”名“九南块”时,右边窗口未显示“分块”为“九南块|九东块”的“天元居委会”
-- 发布时间：2018/6/1 15:21:00
--
以下是引用wangjx817在2018/6/1 14:35:00的发言：
没变化，与原事件显示一样，点击一级目录树“分块”名“九南块”时,右边窗口未显示“分块”为“九南块|九东块”的“天元居委会”
没变化，与原事件显示一样，点击一级目录树“分块”名“九南块”时,右边窗口未显示“分块”为“九南块|九东块”的“天元居委会”
代码没问题，上传具体项目测试