各位高手，麻烦帮忙看下代码有没写错，出现两个问题，会不会与试用版有关：
1：今天生日时，如果没有这一天的，那么不是属于这一天的生日都搜出来了，如果有，则搜索的结果没问题？
2：本月生日时，最后一天搜不出来。
今天生日提醒：
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
本月生提醒：
Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) '该月的第一天
Dim ld As Date = New Date(y,m,Days) '该月的最后一天
Dim ids As String
For Each dr As DataRow In DataTables("员工登记表格").DataRows
Dim dt As Date = dr("个人基本资料_出生年月")
dt = New Date(Date.Today.Year,dt.Month,dt.Day)
If dt >= fd AndAlso dt < ld Then
ids = ids & "," & dr("_Identify")
End If
Next
If ids > "" Then
ids = ids.Trim(",")
Tables("员工登记表格").filter = "[_Identify] In (" & ids &")"
End If
加好友 
发短信
Post By：2013/6/19 16:13:00 [显示全部帖子]
此主题相关图片如下：未命名.bmp
