请教老师，不重复自动编号的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这段代码是生成自动编号，在某个远程终端会出现字符串转换错误的问题，找不到当前存在的最大编号，但在大部分终端上却是没问题，请老师指教

Dim d As Date

d = Tables("物料采购合同审批单汇总").current("预计发生日期")

Dim y As Integer = d.Year

Dim m As Integer = d.Month

Dim Days As Integer = Date.DaysInMonth(y,m)

Dim fd As Date = New Date(y,m,1) '获得该月的第一天

Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天

Dim bh As String = "WL-" & drx("字母缩写") & Format(d,"yyyyMM") '生成编号的前缀

If drx("物料采购单编号").StartsWith(bh) = False '如果单据编号前缀不符

'If drx("物料采购单编号") <> bh Then

drx("物料采购单编号")=bh & "000"

Dim max As String

Dim idx As Integer

Dim flt As String

flt = "字母缩写= '"& drx("字母缩写") & "' And 预计发生日期 >= '" & fd & "' And 预计发生日期 <= '" & ld & "' And [_Identify] <> " & drx("_Identify") '=====20180111增加了当前行排除的比较

max = DataTables("物料采购合同审批单汇总").SQLCompute("Max(物料采购单编号)",flt) '取得该月的相同工程代码的最大单据编号

If max > "" Then '如果存在最大单据编号

idx = CInt(max.Substring(MAX.LENGTH- 3)) + 1 '获得最大单据编号的后四位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

drx("物料采购单编号") = bh & Format(idx,"000")

End If

主题：请教老师，不重复自动编号的问题