此主题相关图片如下:目录树.png
这是目录树结构。
希望点击wangjingfu或者xiejian,能筛选出研发组长列包括wangjingfu或者xiejian,且状态为待解决的行。
点击子目录,比如liaojian,希望筛选出模块维护人包括liaojian,且状态为待解决的行。
点击显示交换机部门所有研发的BUG,写筛选出状态为待解决的数据。
待解决按钮的代码如下,
If trv1.SelectedNode.Nodes(0) IsNot Nothing AndAlso trv1.SelectedNode.Nodes(0).Text <> "显示交换机部门所有研发的BUG" Then
Filter = "[研发组长] like '%" & trv1.SelectedNode.Nodes(0).Text & "%' and [状态] = '待解决'"
DataTables("BUG研发表").loadFilter = Filter
DataTables("BUG研发表").Load()
ElseIf trv1.SelectedNode.Nodes(0).Nodes(1) IsNot Nothing Then
Filter = "[模块维护人] = '" & trv1.SelectedNode.Nodes(0).Nodes(1).Text & "' and [状态] = '待解决'"
DataTables("BUG研发表").loadFilter = Filter
DataTables("BUG研发表").Load()
ElseIf trv1.SelectedNode.Nodes(0) IsNot Nothing AndAlso trv1.SelectedNode.nodes(0).Text = "显示交换机部门所有研发的BUG" Then
Filter = "[状态] = '待解决' and [部门] = '交换机部门'"
DataTables("BUG研发表").loadFilter = Filter
DataTables("BUG研发表").Load()
End If