以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何输入日期下一列自动生成星座?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11656)

--  作者:daxigua
--  发布时间:2011/8/6 16:04:00
--  如何输入日期下一列自动生成星座?
大家好,我单位在人力资源管理时需要录入人员星座进行匹配,请问在录入“出生日期”后,如何在下一列自动生成星座?谢谢!!
--  作者:kylin
--  发布时间:2011/8/6 17:13:00
--  

建立一个档案表:星座、日期,

 

然后录入人员信息的“出生日期”时候,使用Find方法,在档案表查找这个日期,一旦找到,取出这个星座填入本表当中。


--  作者:zhenshenbo
--  发布时间:2011/8/6 17:35:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.zip


--  作者:daxigua
--  发布时间:2011/8/6 17:44:00
--  
2楼谢谢。我今天才使用狐表。还需要慢慢研究。

3楼你好,我打不开。提升版本过低,到哪里能升级?

--  作者:hhbb
--  发布时间:2011/8/6 22:32:00
--  
If e.DataCol.name = "出生日期" Then
    if e.DataRow.IsNull("出生日期") Then
        e.DataRow("星座") = Nothing
    Else
        Dim Ls1 As String() ={"摩羯座" ,"水瓶座","双鱼座","白羊座","金牛座","双子座"}
        Dim Ls2 As String() ={"巨蟹座","狮子座","处 女座","天秤座","天蝎座","射手座"}
        Dim s1 As New List(of String)
        s1.AddRange(Ls1)
        s1.AddRange(Ls2)

        Dim b As Date = e.DataRow("出生日期")
        Dim n As Integer = Math.Ceiling((b.month*100 +b.day)/121)
        e.DataRow("星座") = s1(n-1)
    End If
End If
[此贴子已经被作者于2011-8-6 23:24:08编辑过]