主题：新增行时自动复制数据表中已经有记录的行

是这样的，我希望在建立产品资料时，可以把和新建产品相似的并已建立的产品的字段内容复制，然后在此基础上修改后保存就可以了，假设刚好禁止的字段的内容相当长，而且具有部分的相似，如此一来就方便很多了，其实这是一种偷懒的行为

Dim r As Row = Tables("表名").Current
For Each dc As DataCol In e.DataTable.DataCols

     if dc.Name = "禁止重复列的列名" Then

          e.DataRow(dc.Name) = r(dc.Name) & rand.NextString(2) 

     Else
         e.DataRow(dc.Name) = r(dc.Name)

     end if
Next

嗯，谢谢！