Foxtable(狐表)用户栏目专家坐堂 → 关于帮助中:“关于生日提醒 ”的帮助文本的疑问。。。


  共有3927人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
fubblyc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
关于帮助中:“关于生日提醒 ”的帮助文本的疑问。。。  发帖心情 Post By: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


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


但是问题是:


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


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


 回到顶部