父表就不要用clone了
Dim r As Row = Tables("订单").Current
Dim dnew As Row = Tables("订单").AddNew
Dim name As String = r("名称") & "_复件"
For Each c As Col In Tables("订单").Cols
If c.Name = "名称" Then
dnew(c.Name) = name
ElseIf c.Name <> "_Identify" Then
dnew(c.Name) = r(c.Name)
End If
Next
Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("订单明细")
Dim rc As DataRow
For Each dr As DataRow In drs
rc = dr.Clone
rc("名称") = name
Next
加好友 
发短信
Post By：2016/10/11 17:57:00 [只看该作者]
