以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用户筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54323)
--  作者：蝙蝠侠K02
--  发布时间：2014/7/25 17:14:00
--  [求助]用户筛选问题
 

 

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

 

这是教程中的一段代码，筛选出今天生日的行。我想筛选出不是今天生日的员工的行，

请问该如何修改代码？我的问题与此类似，请各位帮忙！

 

 
--  作者：Bin
--  发布时间：2014/7/25 17:18:00
--  
 Tables("员工").filter = "[姓名] not In (" & nms &")"
--  作者：蝙蝠侠K02
--  发布时间：2014/7/25 17:48:00
--  
      谢谢！