[求助]树控件的筛选问题

好学

请问高手们如何处理例子中的筛选问题?

yuting_yue

我也有这个问题,学习学习

pyzl

学习中

好学

版主帮帮忙吧!!!!

[em01][em01][em01]

好学

是三级的啊：

Private Sub Form_Load()
   TreeView.Nodes.Clear
    strSQL = "SELECT 工厂ID,工厂名称 from 资料录入 "
    strSQL = strSQL & "GROUP BY 工厂ID,工厂名称"
'先清空树控件的内容
    Me.TreeView.Nodes.Clear
    Set conn = CurrentProject.Connection
'按车间名称设置第一级"父"
    Rec.Open strSQL, conn, adOpenKeyset, adLockOptimistic
    For i = 0 To Rec.RecordCount - 1
        Set nodindex = TreeView.Nodes.Add(, tvwChild, "父" & Rec.Fields("工厂ID"), Rec.Fields("工厂名称"), "K1", "K2")
        nodindex.Sorted = True
        Rec.MoveNext
    Next
    Rec.Close
'按部门名称设置第二级"子"
    astrSQL = "SELECT 工厂ID,工厂名称,车间ID,车间名称 from 资料录入 "
    astrSQL = astrSQL & "GROUP BY 工厂ID,工厂名称,车间ID,车间名称"
    Rec.Open astrSQL, conn, adOpenKeyset, adLockOptimistic
    For i = 0 To Rec.RecordCount - 1
        Set nodindex = TreeView.Nodes.Add("父" & Rec.Fields("工厂ID"), tvwChild, "子" & Rec.Fields("车间ID") & Rec.Fields("工厂名称"), Rec.Fields("车间名称"), "K1", "K2")
        nodindex.Sorted = True
        Rec.MoveNext
    Next
    Rec.Close

'设置第三级"孙"
    bstrSQL = "SELECT 工厂ID,工厂名称,车间ID,车间名称,部门ID,部门名称 from 资料录入 "
    bstrSQL = bstrSQL & "GROUP BY 工厂ID,工厂名称,车间ID,车间名称,部门ID,部门名称"
    Rec.Open bstrSQL, conn, adOpenKeyset, adLockOptimistic
    For i = 0 To Rec.RecordCount - 1
        Set nodindex = TreeView.Nodes.Add("子" & Rec.Fields("车间ID") & Rec.Fields("工厂名称"), tvwChild, "孙" & Rec.Fields("部门ID") & Rec.Fields("工厂名称") & Rec.Fields("车间名称"), Rec.Fields("部门名称"), "K1", "K2")
        nodindex.Sorted = True
        Rec.MoveNext
    Next
    Rec.Close
End Sub

andymark

你的树控件只有一级,何来二、三级筛选

好学

是树控件不能筛选问题

andymark

是树控件筛选子窗体的问题,还是树控件不能显示第二级、第三级[em06][em06]

好学

不行啊!树控件的第二级、第三级的筛选不出来，还有合计也不行！麻烦再指点一下，谢谢！

andymark