以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于生日提醒  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149472)
--  作者：天宇科技
--  发布时间：2020/5/3 19:21: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


————————————————————————————————————

这是帮助中的代码，我不明白下面这句

nms = nms & ",\'" & dr("姓名") & "\'"

为什么不用

nms = dr("姓名") 

前面的"nms"有什么作用？
--  作者：有点酸
--  发布时间：2020/5/4 8:58:00
--  
学习一下表达式：