以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  不能刷新  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29667)

--  作者:cks
--  发布时间:2013/3/11 14:40:00
--  不能刷新

我在表事件DataColChanged 写入代码:

 

If e.DataCol.Name = "身份证号码" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("身份证号码") Then \'身份证号码是否为空
        e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
        e.DataRow("姓别") = Nothing
        e.DataRow("年龄") = Nothing
        e.DataRow("籍贯") = Nothing
        e.DataRow("服务天数") = Nothing
    Else  If ValidPIN(e.DataRow("身份证号码")) = True Then
        \'否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
        e.DataRow("姓别") = ReadSex(e.DataRow("身份证号码"))
        Dim st1 As String = Tables("员工表").Current("身份证号码")
        Dim st2 As String = st1.SubString(0,6)
        Dim dr As DataRow = DataTables("地区信息").Find("身份证区位码 = \'" & st2 & "\'")
        e.DataRow("籍贯") = dr("各地省市区")
    Else
        MessageBox.Show("您输入的身份证有误 , 或身份证可能是假的 !","警告",MessageBoxButtons.AbortRetryIgnore,MessageBoxIcon.Error)
        e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
        e.DataRow("姓别") = Nothing
        e.DataRow("身份证号码") = Nothing
    End If
End If

 


Select Case e.DataCol.name
    Case "入职日期","离职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("服务天数") = Nothing
        Else
            If e.DataRow.Isnull("离职日期") Then
                Dim tp As TimeSpan = Date.today - CDate(e.DataRow("入职日期"))
                e.DataRow("服务天数") =  Math.Round(tp.TotalDays)
            Else
                Dim tt As TimeSpan = cdate(e.DataRow("离职日期")) - cdate(e.DataRow("入职日期"))
                e.DataRow("服务天数") = math.round(tt.Totaldays)
            End If
        End If
        If e.DataRow.IsNull("出生日期") = False Then
            Dim tl As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
            e.DataRow("年龄") =  (Math.Round(tl.TotalDays)/365)
        End If
End Select

 

 

可以生成相关我需要的信息,但有时候不能更新,填入后不能及时生成,需要重置列方可以生成,求教


--  作者:狐狸爸爸
--  发布时间:2013/3/11 15:29:00
--  

你的年龄没办法自动刷新,应该这样:

 

Select Case e.DataCol.name
    Case "入职日期","离职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("服务天数") = Nothing
        Else
            If e.DataRow.Isnull("离职日期") Then
                Dim tp As TimeSpan = Date.today - CDate(e.DataRow("入职日期"))
                e.DataRow("服务天数") =  Math.Round(tp.TotalDays)
            Else
                Dim tt As TimeSpan = cdate(e.DataRow("离职日期")) - cdate(e.DataRow("入职日期"))
                e.DataRow("服务天数") = math.round(tt.Totaldays)
            End If
        End If
    Case "出生日期"
        If e.DataRow.IsNull("出生日期") = False Then
            Dim tl As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
            e.DataRow("年龄") =  (Math.Round(tl.TotalDays)/365)
        End If
End Select