以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于帮助中：“关于生日提醒 ”的帮助文本的疑问。。。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47459)
--  作者：fubblyc
--  发布时间：2014/3/10 19:32: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


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


但是问题是：


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


有没有办法解决了。。。。
--  作者：有点甜
--  发布时间：2014/3/10 19:54: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 &")"
Else
    Tables("员工").filter = "false"
End If

 
--  作者：fubblyc
--  发布时间：2014/3/10 19:59:00
--  
有点甜老师真厉害！！完美解决！！