以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教老师，不重复自动编号的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113806)
--  作者：stone9434
--  发布时间：2018/1/23 14:20:00
--  请教老师，不重复自动编号的问题
这段代码是生成自动编号，在某个远程终端会出现字符串转换错误的问题，找不到当前存在的最大编号，但在大部分终端上却是没问题，请老师指教           


 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
--  作者：有点甜
--  发布时间：2018/1/23 15:17:00
--  

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

 

在代码那里加入msgbox，如 msgbox(max)  msgbox(flt) 看弹出什么值。
--  作者：stone9434
--  发布时间：2018/1/23 15:21:00
--  
加了msgbox，显示就是max 为空，就是原来的编号找不到，实际上原来有编号的，有的终端就能找到，但有的电脑上就不行。 
--  作者：有点甜
--  发布时间：2018/1/23 15:33:00
--  

msgbox(flt) 弹出什么？

 

根据这个条件，去数据库查找一下，能否找到数据？
--  作者：stone9434
--  发布时间：2018/1/24 11:31:00
--  
解决了，是因为那台电脑的短日期格式问题，现在改好了就好了
--  作者：有点甜
--  发布时间：2018/1/24 12:06:00
--  
以下是引用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
--  作者：stone9434
--  发布时间：2018/1/24 15:41:00
--  
谢谢，学习了