以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]新建行日期不能复制？  (http://foxtable.net/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编辑过]