Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何输入日期下一列自动生成星座?

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

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

 

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

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

4楼
daxigua 发表于:2011/8/6 17:44:00
2楼谢谢。我今天才使用狐表。还需要慢慢研究。

3楼你好,我打不开。提升版本过低,到哪里能升级?
5楼
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编辑过]
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 3 queries.