以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  插入一行，将上一行的内容复制到新增行中，代码如何写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38207)
--  作者：tj-pacer
--  发布时间：2013/7/22 22:33:00
--  插入一行，将上一行的内容复制到新增行中，代码如何写？

增加一行将最好一行的内容复制到新增的行中代码如下：

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
For Each dc As DataCol In e.DataTable.DataCols
    e.DataRow(dc.Name) = dr(dc.Name) \'将最后一行的内容复制到新增行中.
Next

 

如果是插入一行，将上一行的内容复制到新增行中，代码如何写？
--  作者：y2287958
--  发布时间：2013/7/22 22:58:00
--  
用find把上一行找出来即可
--  作者：tj-pacer
--  发布时间：2013/7/22 23:30:00
--  

代码如何写哪？
--  作者：lsy
--  发布时间：2013/7/23 8:25:00
--  
Dim t As Table = Tables("员工")
t.InsertNew()
Dim dr As DataRow = DataTables("员工").Find("_Identify = " & t.Rows(t.Current.Index + 1)("_Identify"))
For Each c As Col In t.Cols
    t.Current(c.Name) = dr(c.Name)
Next