For Each r As Row In Tables("产品资料主表").Rows
    If r("Newsys_ID").StartsWith("WLZB") = False \'如果单据编号前缀不符
        Dim max As String
        Dim idx As Integer
        max = DataTables("产品资料主表").Compute("Max(Newsys_ID)","[_Identify] <> \'" & r("_Identify") & "\'") \'取得该类别的最大编号
        If max > "" Then \'如果存在最大编号
            idx = CInt(max.SubString(4,3)) + 1 \'获得最大编号的后三位顺序号,并加1
        Else
            idx = 1 \'否则顺序号等于1
        End If
        r("NewSys_ID") = "WLZB" & "-" & Format(idx,"000")
    End If
Next

提示错误是字节长度，搞晕了

1、清除所有编号

2、改成 idx = CInt(max.SubString(5)) + 1 \'获得最大编号的后三位顺序号,并加1