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.DataCol.Expression = “” 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