主题：某列值不能重复时，怎样解决克隆此行的问题

自己做个克隆行：

Dim r1 As Row = Tables("xxx").Current

Dim r2 As Row = Tables("xxx").AddNew

For each c As Col in Tables("xxx").Cols

    if c.Name <> "编号" Then

          r2(c.name) = r1(c.name)

    End if

Next