Dim pd As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
For Each dr As DataRow In DataTables("考勤表").Select("岗位代码 = '" & Ary(0) & "' and 岗位 = '" & Ary(1) & "'and 姓名 = '" & Ary(2) & "' and 日期 >= #" & pd.AddMonths(-1) & "# And 日期 < #" & pd & "# ")
加好友 
发短信
Post By：2016/8/5 11:19:00 [显示全部帖子]
