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

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 &")"
Else
    Tables("员工").filter = "false"
End If