主题：报错了，不知道什么原因

.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2012.11.19.1
错误所在事件：表，员工表，DataColChanged
详细错误信息：
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.ArgumentException: 值对于无符号的字节太大或太小。不能在 年龄 列中存储 <2013.32602739726>。所需类型是 Byte。 ---> System.OverflowException: 值对于无符号的字节太大或太小。
   在 System.Convert.ToByte(Int32 value)
   在 System.Double.System.IConvertible.ToByte(IFormatProvider provider)
   在 System.Data.Common.ByteStorage.Set(Int32 record, Object value)
   在 System.Data.DataColumn.set_Item(Int32 record, Object value)
   --- 内部异常堆栈跟踪的结尾 ---
   在 System.Data.DataColumn.set_Item(Int32 record, Object value)
   在 System.Data.DataRow.set_Item(DataColumn column, Object value)
   在 System.Data.DataRow.set_Item(String columnName, Object value)
   在 Foxtable.DataRow.set_Item(String O01O0OO100, Object O1Oll)
   在 UserCode.DataColChanged(DataColEventArgs e)
   --- 内部异常堆栈跟踪的结尾 ---
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.DataTable.OllO0l10l001O010l1l0OO1O(Object OOlO1l, DataColumnChangeEventArgs O)

 呃，上传项目，或者贴出对于代码。

我只是在员工表事件中写了这样的代码，窗体控件我只是邦定到这表中的对应列，没有代码

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
            Dim tl As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
            e.DataRow("年龄") =  (Math.Round(tl.TotalDays)/365)
            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
End Select

在窗体中加入的是日期输入框，输入值后就弹出上面的报错

把这段改一下。

Select Case e.DataCol.name
    Case "入职日期","离职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("服务天数") = Nothing
        Else If e.DataRow.IsNull("出生日期") = False Then           
            Dim tl As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
            e.DataRow("年龄") =  (Math.Round(tl.TotalDays)/365)
            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
End Select

类型不对
此主题相关图片如下：qq截图20121228174435.png

 写错，已改正。

林总就是行，一针就搞定........

专家就是专家呀，LIn厉害