以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  生日问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83298)
--  作者：sloyy
--  发布时间：2016/4/6 10:21:00
--  生日问题?
我从帮助里照抄了一段代码,提前2天查找准备过生日的客户:
Dim nms As String
For Each dr As DataRow In DataTables("JKR").DataRows
    Dim dt As Date = dr("放贷日期")
    If dt.Month = Date.Today.Month  AndAlso dt.Day =Date.Today.AddDays(2)  Then
        nms = nms & ",\'" & dr("贷款帐号") & "\'"
    End If
Next
If nms > "" Then
    nms = nms.Trim(",")
    Tables("放贷日期提醒_table1").Filter = "[贷款帐号] In (" & nms & ")"
End If

结果出错误提示:
---------------------------
错误
---------------------------
编译错误:没有为类型“Integer”和“Date”定义运算符“=”。

错误代码：If dt.Month = Date.Today.Month  AndAlso dt.Day =Date.Today.AddDays(2)  Then


哪里出问题了?帮助也会出错?

[此贴子已经被作者于2016/4/6 10:30:54编辑过]
--  作者：大红袍
--  发布时间：2016/4/6 10:26:00
--  
If dt.Month = Date.Today.Month  AndAlso dt.Day =Date.Today.AddDays(2).Day  Then
--  作者：sloyy
--  发布时间：2016/4/6 10:28:00
--  
哈哈 ,帮助有小错误,我也没看出来
--  作者：大红袍
--  发布时间：2016/4/6 10:29:00
--  
 呃，帮助没有错。