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 nms = nms.Trim(",") Tables("员工").filter = "[姓名] In ("
&
nms
&")" End If