Foxtable(狐表)用户栏目专家坐堂 → [求助]多值列目录树


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

主题:[求助]多值列目录树

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]多值列目录树  发帖心情 Post By:2018/6/6 8:48:00 [显示全部帖子]

'1、多值列,生成目录树,要增加实现统计数量,代码怎么修改呢?
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr As DataRow In DataTables("物料汇总").DataRows
    For Each s As String In dr("项目空间类型").split(",")
        If trv.Nodes.Contains(s) = False Then
            trv.nodes.Add(s)
        End If
    Next
Next

 

'2、要实现单选,下面代码怎么修改,放在哪个属性事件里面呢?

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
    nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  '注意用or而不是And
        End If
        flt = flt & "( 项目空间类型 like '%" & nd.Text & "%')"
    End If
Next
Tables("物料汇总").Filter = flt

 

 


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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)1、 Dim trv As WinForm.Tr...  发帖心情 Post By:2018/6/6 9:37:00 [显示全部帖子]

堂主,报错。怎么修改呢?


图片点击可在新窗口打开查看此主题相关图片如下:报错图.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)要计算个数的话,sum改成count&nbs...  发帖心情 Post By:2018/6/7 22:04:00 [显示全部帖子]

  Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr As DataRow In DataTables("物料汇总").DataRows
    For Each s As String In dr("项目空间类型").split(",")
        If trv.Nodes.Contains(s) = False Then
            Dim nd = trv.nodes.Add(s)

            nd.text = nd.name & "(" & DataTables("物料汇总").compute("count(<layer highlight="term-2" class="searchwp-term searchwp-highlight-searchwp-highlighting">数量</layer>)", "项目空间类型 like '%" & s & "%'") & ")"
        End If
    Next
Next

坛主,修改成上面代码,目录树节点<layer highlight="term-1" class="searchwp-term searchwp-highlight-searchwp-highlighting">统计</layer>的行数,不对

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)上传具体实例测试。  发帖心情 Post By:2018/6/7 22:17:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:f.foxdb


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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)Dim trv As WinForm.TreeView = e.Fo...  发帖心情 Post By:2018/6/7 22:31:00 [显示全部帖子]

可以了,谢谢坛主,台风还加班

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)Dim trv As WinForm.TreeView = e.Fo...  发帖心情 Post By:2018/6/7 22:47:00 [显示全部帖子]

想实现按钮对当前目录树节点,加1个条件筛选

创建者 列为当前登陆者的行筛选处理,下面代码怎么改呢?

Tables("物料汇总").Filter = "项目空间类型 like '%" & e.Form.Controls("TreeView1").name  & "%'" And "[创建者] = '_UserName'"

 

节点增加了行数统计,上面的思路好像有问题。

我想实现的的效果是  目录树节点筛选一次后,再筛选出:创建者列 是当前登录者姓名的行

 

[此贴子已经被作者于2018/6/7 22:57:29编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜) Tables("物料汇总").Filter ...  发帖心情 Post By:2018/10/25 10:05:00 [显示全部帖子]

  大师,如果增加1个条件,下面代码怎么修改呢? 谢谢啊

    '生成目录树

    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

    For Each dr As DataRow In DataTables("室内设计项目").DataRows

        For Each s As String In dr("深化设计完成时间节点_负责人").split(",")

Dim stra = DataTables("员工资料").GetComboListString("姓名","分配任务组别 = '深化设计'","")

            If s > "" AndAlso s In stra AndAlso trv.Nodes.Contains(s) = False Then

                trv.nodes.Add(s)

            End If

        Next

    Next


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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点蓝)Dim trv As WinForm.TreeView = e.Fo...  发帖心情 Post By:2018/10/25 15:31:00 [显示全部帖子]

  大师,再请教一个问题

'生成目录树,节点后面增加文字  未完成+统计的数量后,AfterCheckNode  复选的代码怎么修改呢?

'多值列,生成目录树,单选模式

 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim stra As String = "|" & DataTables("员工资料").GetComboListString("姓名","分配任务组别 = '深化设计'","") & "|"

    

For Each dr As DataRow In DataTables("室内设计项目").DataRows

    If dr("深化设计完成时间节点_负责人") > "" Then

        For Each s As String In dr("深化设计完成时间节点_负责人").split(",")

            Dim nd As WinForm.TreeNode

            If s > "" AndAlso stra.Contains("|" & s & "|") AndAlso trv.Nodes.Contains(s) = False Then

                nd = trv.nodes.Add(s)

            nd.text = nd.name & "  未完成 " & DataTables("室内设计项目").compute("count(深化设计完成时间节点_负责人)", "深化设计完成时间节点_负责人 like '%" & s & "%'")

End If

        Next

    End If

Next 

Tables("室内设计项目").Filter = flt


[此贴子已经被作者于2018/10/25 15:51:27编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点蓝)贴出AfterCheckNode? 复选的代码...  发帖心情 Post By:2018/10/25 15:41:00 [显示全部帖子]

 AfterCheckNode

If e.Form.Controls("RadioButton5").Checked Then
Tables("室内设计项目").Filter = " "
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
    nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  '注意用or而不是And
        End If
        flt = flt & "( 深化设计完成时间节点_负责人 like '%" & nd.Text & "%')"

        'flt = flt
    End If
Next
Tables("室内设计项目").Filter = flt
[此贴子已经被作者于2018/10/25 15:41:53编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点蓝)flt = flt & "( 深化设计完成时间...  发帖心情 Post By:2018/10/25 17:05:00 [显示全部帖子]

  大师,请教再增加一个条件(黄色区域),目录树生成问题


'多值列,生成目录树,单选模式

 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

     Tables("室内设计项目").Filter = " "

    trv.Nodes.Clear

Dim stra As String = "|" & DataTables("员工资料").GetComboListString("姓名","分配任务组别 = '深化设计'","") & "|"

Dim stre As String = "|" & DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人","深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null","") & "|"

    

For Each dr As DataRow In DataTables("室内设计项目").DataRows

    If dr("深化设计完成时间节点_负责人") > "" Then

        For Each s As String In dr("深化设计完成时间节点_负责人").split(",")

            Dim nd As WinForm.TreeNode

            'If s > "" AndAlso stra.Contains("|" & s & "|") AndAlso trv.Nodes.Contains(s) = False Then

            If s > "" AndAlso stra.Contains("|" & s & "|") AndAlso stre.Contains("|" & s & "|") AndAlso trv.Nodes.Contains(s) = False Then

                nd = trv.nodes.Add(s)

            nd.text = nd.name & "  未完成 " & DataTables("室内设计项目").compute("count(深化设计完成时间节点_负责人)", "深化设计完成时间节点_负责人 like '%" & s & "%'")     '数量统计有误

End If

        Next

    End If

Next 




 回到顶部
总数 16 1 2 下一页