主题：关于帮助中：“关于生日提醒 ”的帮助文本的疑问。。。

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

我照做了之后，可以筛选出来是今天过生日的员工

但是问题是：

如果今天没有人过生日，却像没点过按钮一样，一点反应也没有。不像正常筛选的那样不显示任何记录，而是显示了所有记录。。。

有没有办法解决了。。。。