以文本方式查看主题

-  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=43606)
--  作者：yuxiaohong2571
--  发布时间：2013/12/11 14:02:00
--  自动填加日期

第一列是日期，想让下一行填加数据时自动附加上一行的日期，不是当前系统日期，怎么做？
--  作者：Bin
--  发布时间：2013/12/11 14:06:00
--  

DataRowAdded 事件

Dim dr As DataRow = e.DataTable.Find("_SortKey < " & e.DataRow("_SorKey"),"_SortKey Desc")
If dr IsNot Nothing Then
  e.DataRow("日期")=dr("日期")
End If
--  作者：yuxiaohong2571
--  发布时间：2013/12/15 13:37:00
--  

谢谢指导！