以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]关于帮助中【自动编号】代码的错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29605)

--  作者:菲舍尔
--  发布时间:2013/3/10 1:41:00
--  [原创]关于帮助中【自动编号】代码的错误

要自动生成上述编号,代码更加简单:

If e.DataCol.Name = "日期" Then
    If
e.DataRow.IsNull("日期") Then
        e.
DataRow("编号") = Nothing
    Else
        Dim
bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
       
If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前8位不符
       
    Dim max As String
           
Dim idx As Integer
            max = e.
DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "#") \'取得该天的最大编号
           
If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(
9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
           
Else
                idx =
1 \'否则顺序号等于1
           
End If
            e.
DataRow("编号") = bh & "-" & Format(idx,"000")
        End
If
    End
If
End
If

 

请参见:

foxtable.chm::/2403.htm

 

根据以上帮助中的代码,有位狐友遇到了问题:

新输入的就正常,改日期就不正常了

如:新输入日期=2013-03-02,那么编号=“20130302001”,结果正确

 

,改日期2013-03-03后,当2013-03-03没有编号时,编号应为“20130303001”,结果却是“20130303002”

 

经验证,该代码确实存在上述的问题。

 

经研究,问题就出在这句语句上:

max = e.DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "#") \'取得该天的最大编号
当改了日期后,max会=自己这条记录的编号,所以编号就会自动加1了

 

解决办法:

 

If e.DataCol.Name = "日期" Then
    If
e.DataRow.IsNull("日期") Then
        e.
DataRow("编号") = Nothing
    Else
        Dim
bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
       
If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前8位不符
       
    Dim max As String
           
Dim idx As Integer

            e.DataRow("编号") = Nothing   ’加多这一句
            max = e.DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "#")
\'取得该天的最大编号
           
If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1
\'获得最大编号的后三位顺序号,并加1
           
Else
                idx = 1
\'否则顺序号等于1
           
End If
            e.DataRow("编号") = bh & "-" & Format(idx,"000")

        End
If
    End
If
End
If

 

这样的结果就正确了

 

 

希望本文对各位狐友有用。 


--  作者:程兴刚
--  发布时间:2013/3/10 2:01:00
--  

日期默认,一旦日起输入成功,就不应该允许该才对吧?否则,数据会出问题的!


--  作者:e-png
--  发布时间:2013/3/10 8:29:00
--  
以下是引用程兴刚在2013-3-10 2:01:00的发言:

日期默认,一旦日起输入成功,就不应该允许该才对吧?否则,数据会出问题的!

程版,你这个不符合实际。 即使确认保存后,也可能(突然)发现日期录错而修改的。


--  作者:程兴刚
--  发布时间:2013/3/10 9:38:00
--  
呵呵,添加行默认为服务器时间,为什么会错?
--  作者:e-png
--  发布时间:2013/3/10 9:45:00
--  

实际操作中许多情况下必须要指定日期的,您是领导,录入的活做的不多, 日期的录入是经常需要更正的。


--  作者:e-png
--  发布时间:2013/3/10 9:47:00
--  
当然,帮助中的例子只是最基本的代码,随着条件的改变也需要编程人员自己来调整的。  编者都应该设定好条件范围,最后确定编号的值。
--  作者:don
--  发布时间:2013/3/10 11:50:00
--  

也可:

 

Idx = e.DataTable.Compute("Count(日期)","日期 = #" & e.NewValue & "#")

e.DataRow("编号") = bh & "-" & Format(idx,"000")  \'可能Count 效率低于Max

 

 


--  作者:狐狸爸爸
--  发布时间:2013/3/11 11:24:00
--  
收到,多谢提醒。