- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 报错了，不知道什么原因 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27328)
-- 发布时间：2012/12/28 17:01:00
-- 报错了，不知道什么原因
.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)
-- 发布时间：2012/12/28 17:06:00
--
呃，上传项目，或者贴出对于代码。
-- 发布时间：2012/12/28 17:14:00
--
我只是在员工表事件中写了这样的代码，窗体控件我只是邦定到这表中的对应列，没有代码
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
-- 发布时间：2012/12/28 17:16:00
--
在窗体中加入的是日期输入框，输入值后就弹出上面的报错
-- 发布时间：2012/12/28 17:39:00
--
把这段改一下。
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
-- 发布时间：2012/12/28 17:43:00
--
类型不对
此主题相关图片如下：qq截图20121228174435.png
-- 发布时间：2012/12/28 17:47:00
--
写错，已改正。
-- 发布时间：2012/12/28 17:49:00
--
林总就是行，一针就搞定........
-- 发布时间：2012/12/28 20:23:00
--
专家就是专家呀，LIn厉害