Foxtable(狐表)用户栏目专家坐堂 → 关于生日提醒


  共有2758人关注过本帖树形打印复制链接

主题:关于生日提醒

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


加好友 发短信
等级:一尾狐 帖子:475 积分:4058 威望:0 精华:0 注册:2018/5/13 15:18:00
关于生日提醒  发帖心情 Post By: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"有什么作用?


 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2020/5/4 8:58:00 [只看该作者]


 回到顶部