Dim Result As DialogResult
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.replace("*", "[*]") & "%' and [_Identify] <> " & r("_Identify"))
If max > "" AndAlso max.Contains("*") Then '如果存在最大编号
Dim ary = max.split("*")
idx = CInt(ary(ary.length-1)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
For Each c As Col In Tables("报价单").Cols
If c.Name = "订单编号" Then
ElseIf c.Name <> "_Identify" AndAlso c.name <> "业务跟单" Then
dnew(c.Name) = r(c.Name)
End If
Next
Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("报价明细")
dnew("订单编号") = name & "*" & Format(idx,"000")
For Each dr As DataRow In drs
Dim rc = dr.Clone
rc("订单编号") = dnew("订单编号")
'Dim ndr As DataRow = DataTables("报价明细").addnew
'For Each c As Col In Tables("报价明细").Cols
'If c.Name = "订单编号" Then
'ndr("订单编号") = dnew("订单编号")
'ElseIf c.Name <> "_Identify" AndAlso c.name <> "业务跟单" Then
'ndr(c.Name) = dr(c.Name)
'End If
'Next
Next
End If