以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树统计的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80533)
--  作者：douglas738888
--  发布时间：2016/1/25 15:58:00
--  目录树统计的问题
请老师帮忙看看，目前代码能实现自定义登录后，一个人员的工作任务能在目录树显示并统计，点击目录树统计数变为0，但不是填入名字变为0

如下问题还不能实现
1. 希望在任务已读列填入与目录树对应任务人员的名字后，目录树的任务数才变为0，例如，任务人员有3人，需要3人都在任务已读列分别填写各自名字后目录树任务数才变为0

2. 目前的代码不能实现目录树任务人员有多人时，相关人员登录后，目录树并不生成，这样的_UserName怎样修改

整体意思就是，任务分派表是由管理人员下发的任务给一个人或多个人，不同的用户登录后，各自看到目录树里面的任务人员及任务数，通过任务人员各自在任务已读列填写名字后，目录树的任务数才变为0，例如，目录树的任务人员为2人，只有两人都在任务已读列填写各自名字后，目录树的任务数才变为0，而不是点击目录树节点后就变为0

上传测试例子请老师指导指导，登录密码都为888
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.zip
--  作者：大红袍
--  发布时间：2016/1/26 0:52:00
--  

1、多人的情况，请用OpenQQ功能，通知对方已读了，然后对比任务列和已读列的内容；

 

2、

 

            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "发布日期 >= #" & d1 & "# And 发布日期 <= #" & d2 & "# And 任务人员 = \'" & Product & "\'"
           
            Dim drs As List(Of DataRow) = DataTables("任务分派").Select(filter & " and (任务已读 not like \'%" & _UserName & "%\' or 任务已读 is null)")
            If drs.count > 0 Then
                For Each dr As DataRow In drs
                    dr("任务已读") = (dr("任务已读") & "," & _UserName).Trim(",")
                Next
                e.node.text = e.node.name & "(0)"
                e.node.ParentNode.text = e.node.ParentNode.name & "(" & val(e.node.parentNode.Text.Split("(")(1)) - drs.count & ")"
                e.node.ParentNode.ParentNode.text = e.node.ParentNode.ParentNode.name & "(" & val(e.node.parentNode.ParentNode.Text.Split("(")(1)) - drs.count & ")"
            End If