我从帮助里照抄了一段代码,提前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编辑过]
加好友 
发短信
Post By：2016/4/6 10:21:00 [只看该作者]
