请教老师，不重复自动编号的问题 - 专家坐堂 - 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

错误的提示，截图发上来看看

在代码那里加入msgbox，如 msgbox(max) msgbox(flt) 看弹出什么值。

加了msgbox，显示就是max 为空，就是原来的编号找不到，实际上原来有编号的，有的终端就能找到，但有的电脑上就不行。

msgbox(flt) 弹出什么？

根据这个条件，去数据库查找一下，能否找到数据？

解决了，是因为那台电脑的短日期格式问题，现在改好了就好了

以下是引用stone9434在2018/1/24 11:31:00的发言：
解决了，是因为那台电脑的短日期格式问题，现在改好了就好了

参考 afterOpenProject事件，短日期

Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If DateInfo IsNot Nothing Then
DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If

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