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

http://www.foxtable.com/help/topics/0630.htm

1、要灵活变通，复制当前行，这样设置事件代码就行了：
  
Dim r As Row = Tables("表名").Current
For Each dc As DataCol In e.DataTable.DataCols
     e.DataRow(dc.Name) = r(dc.Name)
Next

2、代码编辑器不全的，以帮助为准。

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)

    end if
Next

你的问题已经自相矛盾了，既然要禁止重复，就不应该复制啊。

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