主题：复制新增

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