以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150755)
--  作者：江南小镇
--  发布时间：2020/6/6 17:22:00
--  [求助]统计
老师好，下面按钮代码在第二次操作时不能清除原来的目录树节点。

With Tables(e.Form.Name & "_Table1")
    .EnterKeyActionDown = True
    .AutoSizeCols
    Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("复选1")
    dz_FilterCol.Items.clear
    For Each C As Col In .Cols
        dz_FilterCol.Items.Add(C.Name)
    Next
    dz_FilterCol.Value = ""
End With
--  作者：有点蓝
--  发布时间：2020/6/6 17:26:00
--  
没看出来这个代码和清空目录树有什么关系
--  作者：江南小镇
--  发布时间：2020/6/6 18:03:00
--  
老师，这是目录树代码怎样重新打开前把原来的目录树节点清除掉。

If e.Node.Name = "显示所有行" Then
    Tables(e.Form.Name & "_Table1").Filter = ""
Else
    Dim FilterCol() As String = e.Form.Controls("复选1").Value.Split(",")
    Dim TmpStr() As String = e.Node.FullPath.Split("\\")
    Dim FilterStr As String
    For i As Integer = 0 To e.Node.Level
        FilterStr = FilterStr & "[" & FilterCol(i) & "] = \'" & TmpStr(i) & "\' And "
    Next
    FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
    Tables(e.Form.Name & "_Table1").Filter = FilterStr 
End If
--  作者：有点蓝
--  发布时间：2020/6/7 20:35:00
--  
同样没看出来这个代码和清空目录树有什么关系

[此贴子已经被作者于2020/6/7 20:35:46编辑过]