以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]新建行日期不能复制?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74007)

--  作者:twef
--  发布时间:2015/8/31 12:17:00
--  [求助]新建行日期不能复制?

在表属性DataRowAdding中编入以下代码

If e.DataTable.DataRows.Count>1 Then

    e.DataRow("日期")=e.DataTable.DataRows(e.DataTable.DataRows.Count-1)("日期")

End If

新建新的一行不能自动复制上一行日期,不知道上面代码错在哪里?

 


--  作者:Hyphen
--  发布时间:2015/8/31 12:34:00
--  
代码没问题,是否有其它事件做了控制
--  作者:twef
--  发布时间:2015/8/31 12:45:00
--  
没有做其他事件控制呀,就是“日期”列类型为“日期时间”
--  作者:大红袍
--  发布时间:2015/8/31 14:11:00
--  
做例子发上来测试。
--  作者:有点蓝
--  发布时间:2015/8/31 15:09:00
--  

If e.DataTable.DataRows.Count>1 Then

    e.DataRow("日期")=e.DataTable.DataRows(e.DataTable.DataRows.Count-1)("日期")

End If

这是取最后一行的数据,不是上一行的

改成 下面的试用一下

If CurrentTable.Current IsNot Nothing Then

    e.DataRow("日期")=e.DataTable.DataRows(CurrentTable.Current.Index)("日期")

End If

[此贴子已经被作者于2015/8/31 15:09:57编辑过]