主题：编号

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
r("订单编号") = name & "*" & Format(idx,"000")

贴出你写的全部代码

去掉勾选

http://www.foxtable.com/webhelp/scr/1644.htm

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