Foxtable(狐表)用户栏目专家坐堂 → [求助]统计


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

主题:[求助]统计

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]统计  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/6 17:26:00 [只看该作者]

没看出来这个代码和清空目录树有什么关系

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/7 20:35:00 [只看该作者]

同样没看出来这个代码和清空目录树有什么关系

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

 回到顶部