复制新增这段代码怎么用着用着，1、原报价明细直接被替换成新的报价明细了，（之前是原报价明细不变，新的报价明细复制新增了）
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
If usna Like "业务*" Or usna="admin" Or usna="研发-祝炫丽" Then
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("订单编号") = name & "*" & Format(idx,"000")
dnew("材料成本")=Tables("报价单.报价明细").Compute("Sum(金额)","订单编号='" & Tables("报价单").Current("订单编号") & "'")
dnew("财务审核") = Nothing
dnew("总经理审批") = Nothing
dnew("订单量") = 10000
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
Else
MessageBox.show("未审核报价款式不能复制新增版本!")
End If
加好友 
发短信
Post By：2018/7/24 9:27:00 [只看该作者]
此主题相关图片如下：111.png
