主题：克隆当前行问题

举例如：

只能 逐个字段赋值，除非改为用自增字段做主键，然后订单号改为用唯一索引

要这样做才行。

 

Dim r As Row = CurrentTable.Current
If r IsNot Nothing Then
    Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
    Dim dr2 As DataRow = CurrentTable.DataTable.AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols1(i)) = r(Cols1(i))
    Next
End If

这个列名的数组有办法自动获取到吗？

Dim r As Row = CurrentTable.Current
If r IsNot Nothing Then
    Dim dr2 As DataRow = CurrentTable.DataTable.AddNew()
    For Each c As Col In CurrentTable.Cols
        If c.name <> "第二列" Then
            dr2(c.name) = r(c.name)
        End If
    Next
End If