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.Contains("*") Then '如果存在最大编号 idx = CInt(max.split("*")(1)) + 1 '获得最大编号的后三位顺序号,并加1 Else idx = 1 '否则顺序号等于1 End If r("订单编号") = name & "*" & Format(idx,"000")