主题：在出生日期列查询过生日的人

Dim nms As String
For Each dr As DataRow In DataTables("员工").DataRows
    Dim dt As Date = dr("出生日期")
    If dt.Month = Date.Today.Month AndAlso Date.Today.Day Then
        nms = nms & ",'" & dr("姓名") & "'"
    End If
Next
If nms > "" Then
    nms = nms.Trim(",")
    Tables("员工").filter = "[姓名] In (" & nms &")"
End If

Dim nms As String
For Each dr As DataRow In DataTables("员工").DataRows
    Dim dt As Date = dr("出生日期")
    dt = New Date(Date.Today.Year,dt.Month,dt.Day)
    If dt >= Date.Today AndAlso dt < Date.Today.AddDays(6) Then
        nms = nms & ",'" & dr("姓名") & "'"
    End If
Next
If nms > "" Then
    nms = nms.Trim(",")
    Tables("员工").filter = "[姓名] In (" & nms &")"
End If

上面的代码有漏洞，假定有两个张三，其中一个张三今天生日，那么执行上述代码之后，两个张三都会显示出来，尽管另一个张三并不是今天生日。

要解决这个问题，可以参考下面的代码，同样以筛选出今天生日的员工为例：

Dim ids As String
For Each dr As DataRow In DataTables("员工").DataRows
    Dim dt As Date = dr("出生日期")
    dt = New Date(Date.Today.Year,dt.Month,dt.Day)
    If dt >= Date.Today AndAlso dt < Date.Today.AddDays(6) Then
        ids = ids & "," & dr("_Identify")
    End If
Next
If ids > "" Then
    ids = ids.Trim(",")
    Tables("员工").filter = "[_Identify] In (" & ids &")"
End If

由于每一行的_Identify列的内容都是不同的，同名带来的问题不复存在。

提示： 如果希望打开项目后，能自动筛选出当天生日的员工，可以将上面的代码设置在AfterOpenProject事件中。