关于帮助中:“关于生日提醒 ”的帮助文本的疑问。。。 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