Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]:想做一个员工生日的提醒


  共有5148人关注过本帖树形打印复制链接

主题：[求助]:想做一个员工生日的提醒
帅哥哟，离线，有人找我吗？
benhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		[求助]:想做一个员工生日的提醒  发帖心情 Post By：2013/6/19 16:13:00 [只看该作者]

有一个“员工登记表格”，想系统打开后自动刷新员工生日的提醒，

1：显示出该员工的：“工号，姓名，性别，民族，部门，岗位，职务，出生年月”这几列。
2：在TEXTBOX中计算出人数。


图片点击可在新窗口打开查看此主题相关图片如下：未命名.bmp
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/6/19 16:16:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		  发帖心情 Post By：2013/6/20 8:08:00 [只看该作者]

谢谢！BIN。用按键按帮助的参考和计算这些我会做，我只是想换个方式。
最主要的是，搜索出来的值显示，但对于“员工登记表”中的其它数据不会隐身，也就是只是取值，不影响任何动作。
[此贴子已经被作者于2013-6-20 8:13:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/6/20 8:53:00 [只看该作者]

原理是一样的,换个呈现的方式一样是这么做的啊.

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/6/20 8:53:00 [只看该作者]

Dim nms As String
Dim n As Integer = 6 '未来天数,含今天,所以实际是未来7天
For Each dr As DataRow In DataTables("员工").DataRows
    Dim dt As Date = dr("出生日期")
    Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)
    Dim dt2 As  New Date(Date.Today.AddDays(n).Year,dt.Month,dt.Day)
    If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
        nms = nms & ",'" & dr("姓名") & "'"
    End If
Next
e.Form.Controls("TextBox1").Value = nms
 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		  发帖心情 Post By：2013/6/20 10:31:00 [只看该作者]

可能是我没描述得清楚，不过我现在搞定了，在事件中加多一个打开时隐藏列，退出时取消隐藏列就可以了，谢谢！！

 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		[求助]帮忙看下是否代码有误，谢谢！！  发帖心情 Post By：2013/6/21 14:28:00 [只看该作者]

各位高手，麻烦帮忙看下代码有没写错，出现两个问题，会不会与试用版有关：

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
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/6/21 14:34:00 [只看该作者]

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 &")"
Else
   Tables("员工登记表格").filter  = "[_Identify] Is Null"
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 &")"
else
    Tables("员工登记表格").filter  = "[_Identify] Is Null"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/6/21 15:17:00 [只看该作者]

'日本
Dim flt As String  = Format(Date.Today,"d").Replace(Format(Date.Today,"yyy"),"") & " "
flt = "Convert([个人基本资料_出生年月], 'System.String') Like '%" & flt & "%'"
Tables("员工登记表格").filter = flt

'月本
Dim flt As String
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) '该月的最后一天
flt = "[个人基本资料_出生年月] >=#" & fd & "# and [个人基本资料_出生年月] <=#" & ld & "#"

Tables("员工登记表格").filter = flt
[此贴子已经被作者于2013-6-21 15:17:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		回复：（狐狸爸爸）Dim nms As StringFor Each dr A...  发帖心情 Post By：2013/6/21 15:50:00 [只看该作者]

今天的提醒加了否定取值可以了，但月度的还是不行

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询