Dim s As Date
Dim ids As
String
Dim cnt As
Integer
Dim nms As
String
Syscmd.Filter.UnFilter()
s = Forms("窗口4").Controls("DateTimePicker1").value
For Each dr
As DataRow In DataTables("会员信息").DataRows
Dim dt As Date = dr("阳历生日")
Dim dy As Date = dr("出生日期")
dt = New Date(s.Year,dt.Month,dt.Day)
dy = New Date(s.Year,dy.Month,dy.Day)
If dt = s Or dy = s Then
cnt = cnt + 1
ids = ids & "," &
dr("_Identify")
End If
Next
If cnt > 0
Then
Tables("会员信息").Filter
= "[_Identify] In (" & ids.Trim(",")
&")"
Else
messagebox.show("没有过生日的人")
End If
此主题相关图片如下：qq截图20130119203327.jpg
加好友 
发短信
Post By：2013/1/20 9:17:00 [显示全部帖子]
