Foxtable(狐表)用户栏目专家坐堂 → [原创]帮助文件抓bug


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

主题:[原创]帮助文件抓bug

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


加好友 发短信
等级:幼狐 帖子:61 积分:582 威望:0 精华:0 注册:2008/9/1 7:15:00
[原创]帮助文件抓bug  发帖心情 Post By:2012/3/15 14:41:00 [只看该作者]

帮助文件抓bug。

 

帮助文件

http://www.foxtable.com/help/topics/2476.htm

 

有这么一段 代码

=============================================

 

假定有个员工表,有姓名和出生日期列,希望能够筛选出今天生日的行,代码为:

Dim nms As String
For Each
dr As DataRow In DataTables("员工").DataRows
    Dim
dt As Date = dr("出生日期")
    If
dt.Month = Date.Today.Month AndAlso Date.Today.Day Then
        nms = nms & ",'" & dr("姓名") & "'"

    End If
Next
If
nms > "" Then
    nms = nms.Trim(","
)
    Tables(
"员工").filter = "[姓名] In (" & nms &")
"
End If

=============================================

 

 

谁能告诉我,标有背景的代码是正确,还是错误?谢谢!

 

[此贴子已经被作者于2012-3-15 15:42:03编辑过]

 回到顶部