主题：[求助] 任务栏代码问题【未解决】

设计一模式窗口，用于显示离职人员信息，表控件为副本的Normal型Table，已绑定到“基本信息”，想从任务栏点击“今天离职员工”任务后，能打开窗口显示信息，现在遇到问题，显示全部内容，未执行筛选。

Select Case e.Link.Name

    Case "今天离职员工"

        Dim nms As String

        For Each dr As DataRow In DataTables("基本信息").DataRows

            Dim dt As Date = dr("离职日期")

            If dt.Month = Date.Today.Month AndAlso dt.Day = Date.Today.Day Then

                nms = nms & ",'" & dr("工号") & "'"

            End If

        Next

        If nms = "" Then

            MessageBox.Show("今天没有员工离职")

            Return

        Else

            nms = nms.Trim(",")

            Forms("离职信息窗口").Open

            Tables("离职信息窗口_Table1").filter = "[工号] In (" & nms &")"

            Forms("离职信息窗口").Visible = true

        End If 

     Case "本月离职员工"   

     代码较多，后续代码省略......

例子发上来看看.

附件上传：

求指点

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table