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


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

主题:[原创]帮助文件抓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编辑过]

 回到顶部
美女呀,离线,留言给我吧!
view360
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:49 积分:499 威望:0 精华:0 注册:2012/2/28 18:11:00
  发帖心情 Post By:2012/3/15 15:08:00 [只看该作者]

如果日期为本月本日,就返回结果,并加上姓名

好像真的有问题。更正。呵呵。。

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

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


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

以下是引用view360在2012-3-15 15:08:00的发言:
如果日期为本月本日,就返回结果,并加上姓名

好像真的有问题。更正。呵呵。。
 

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

 

 

大树兄,虽然你的酱油 很浓 ,但还是谢谢你的回复。


 回到顶部
美女呀,离线,留言给我吧!
view360
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:49 积分:499 威望:0 精华:0 注册:2012/2/28 18:11:00
  发帖心情 Post By:2012/3/15 15:49:00 [只看该作者]

图片点击可在新窗口打开查看  返回值类指定为月了。。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/15 16:24:00 [只看该作者]

有错,应该:
 
If dt.Month = Date.Today.Month AndAlso dt.Day = Date.Today.Day Then

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


加好友 发短信
等级:幼狐 帖子:61 积分:582 威望:0 精华:0 注册:2008/9/1 7:15:00
  发帖心情 Post By:2012/3/15 16:45:00 [只看该作者]

以下是引用狐狸爸爸在2012-3-15 16:24:00的发言:
有错,应该:
 
If dt.Month = Date.Today.Month AndAlso dt.Day = Date.Today.Day Then

 

谢谢,狐狸爸爸。

 

OK,我又抓到一个BUG。

呵呵,我继续看帮助。

 


 回到顶部