- 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=26391)
-- 发布时间：2012/12/2 21:35:00
-- 日期类型的列怎么自动统计
有个问题请教一下，我做了一个表格，年休_1,年休_2,年休_3,年休_4列的类型是日期时间，合计列的类型是整数；我想在年休_1,2,3,4那里输入日期，只要单元格有值，合计就自动统计天数，如果清空，合计也跟着清空，我设了一串代码在表事件里，但是好像不行，麻烦高手看看怎么设置代码？
If e.DataCol.Name Like "年休_1" Then
If e.DataRow.IsNull("合计") Then e.DataRow("合计") = 0
If e.NewValue = "" Then
e.DataRow("合计") = e.DataRow("合计") - 1
Else If e.OldValue = "" Then
e.DataRow("合计") = e.DataRow("合计") + 1
End If
End If
-- 发布时间：2012/12/3 3:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:年休.table |
-- 发布时间：2012/12/3 14:41:00
--
请高手指点，怎么样设置代码？
代码不能实现，只要输入日期，就会出现错误，弹出以下信息:
.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2012.10.23.1
错误所在事件：表，年休，DataColChanged
详细错误信息：
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.InvalidCastException: 从字符串“”到类型“Date”的转换无效。
在 Microsoft.VisualBasic.CompilerServices.Conversions.ToDate(String Value)
在 Microsoft.VisualBasic.CompilerServices.Operators.CompareObject2(Object Left, Object Right, Boolean TextCompare)
在 Microsoft.VisualBasic.CompilerServices.Operators.ConditionalCompareObjectEqual(Object Left, Object Right, Boolean TextCompare)
在 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.OO11100l1101ll0OOO0100O1(Object Oll10O, DataColumnChangeEventArgs O)
-- 发布时间：2012/12/3 14:56:00
--
一定要用代码吗
-- 发布时间：2012/12/3 14:59:00
--
不一定的，只要能实现就可以？但是日期类型的不能统计，只有数字类型的才能统计，所以不知道怎么弄？我想日期能在日历那里录入，合计列又能自动统计天数！
[此贴子已经被作者于2012-12-3 15:00:20编辑过]
-- 发布时间：2012/12/3 15:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目57.table |
Select Case e.DataCol.name
Case "年休_1","年休_2","年休_3","年休_4"
Dim dr As DataRow = e.DataRow
dr("合计") = iif(dr.IsNull("年休_1"),0,1) + iif(dr.IsNull("年休_2"),0,1) + iif(dr.IsNull("年休_3"),0,1) + iif(dr.IsNull("年休_4"),0,1)
End Select
-- 发布时间：2012/12/3 15:25:00
--
可以实现了，谢谢狐狸爸爸！