主题：[求助]新建行日期不能复制？

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