主题：复制新增

试试改成

 

ElseIf c.Name <> "_Identify" AndAlso c.name <> "业务跟单" Then
  
    dnew(c.Name) = r(c.Name)
End If
msgbox(usna)

dnew("业务跟单") = usna

dnew("材料成本")=Tables("报价单.报价明细").Compute("Sum(金额)","订单编号='" & Tables("报价单").Current("订单编号") & "'")
dnew("财务审核") = Nothing
dnew("总经理审批") = Nothing
dnew("订单量") = 10000

上传具体实例测试。

 

或者加上 http://www.foxtable.com/webhelp/scr/2218.htm

 

你给的例子测试没问题，请上传具体有问题的实例测试。

' Tables("报价单").Current.Clone()

' Tables("报价明细").save
' Dim idx As String

' Tables("报价单").Current("订单编号") =Tables("报价单").Current("订单编号") & "*"
Dim Result As DialogResult

If  Tables("报价单").Current("研发部_总监审核")="研发-总监" Then
    Result = MessageBox.Show("确认要新增版本吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes  Then
       
        Dim r As Row = Tables("报价单").Current
        Dim dnew As Row = Tables("报价单").AddNew
        Dim name As String = r("订单编号")
        Dim max As String
        Dim idx As Integer
        max = Tables("报价单").Compute("Max(订单编号)","订单编号 like '" & name & "%' and [_Identify] <> " & r("_Identify"))
        If max > "" AndAlso max.Contains("*") Then '如果存在最大编号
            idx = CInt(max.split("*")(1)) + 1 '获得最大编号的后三位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
       
        For Each c As Col In Tables("报价单").Cols
            If c.Name <> "研发管理费" And c.Name <> "后勤管理费" And c.Name <> "制造费"   Then
               
                If c.Name = "订单编号" Then
                   
                    dnew(c.Name) = name
                ElseIf c.Name <> "_Identify" AndAlso c.name <> "业务跟单"  Then
                    dnew(c.Name) = r(c.Name)
                   
                End If
            End If
        Next

        'dnew("材料成本")=Tables("报价单.报价明细").Compute("Sum(金额)","订单编号='" & Tables("报价单").Current("订单编号") & "'")
        'dnew("财务审核") = Nothing
        'dnew("总经理审批") = Nothing
        'dnew("订单量") = 10000
        dnew("订单编号") = name & "*" & Format(idx,"000")
        dnew("业务跟单") = usna
        
        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("订单编号") = dnew("订单编号")
        Next
    End If
   
   
Else
    MessageBox.show("未审核报价款式不能复制新增版本!")
End If

我，测试没问题。请认真测试楼上代码。