主题：目录树统计的问题

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