设计一模式窗口,用于显示离职人员信息,表控件为副本的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 "本月离职员工"
代码较多,后续代码省略......
[此贴子已经被作者于2013-4-12 17:00:50编辑过]