以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动编号代码出问题，怎么解决  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60400)
--  作者：hrw68529
--  发布时间：2014/11/24 12:38:00
--  [求助]自动编号代码出问题，怎么解决
下边这段代码是自动编号的，但目前编号进行到999，无法再进行自动编号，出错信息：Exception has been thrown by the target of an invocation.如何更改，谢谢
Select e.DataCol.Name
    Case "收到日期","收发文"
        If e.DataRow.IsNull("收到日期") Then
            e.DataRow("收文编号") = Nothing
        Else
            Dim d As Date = e.DataRow("收到日期")
            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,1,1) \'获得该年的第一天
            Dim ld As Date = New Date(y,12,31) \'获得该年的最后一天
            Dim bh As String = e.DataRow("收发文") &  Format(d,"yyyy") & "-" \'生成编号的前缀
            If e.DataRow("收文编号").StartsWith(bh) = False \'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "收发文 = \'"& e.DataRow("收发文") & "\' And 收到日期 >= #" & fd & "# And 收到日期 <= #" & ld & "#"
                max = e.DataTable.Compute("Max(收文编号)",flt) \'取得该年的相同工程代码的最大单据编号
                If max > "" Then \'如果存在最大单据编号
                    idx = max.LastIndexOf("-") + 1
                    idx = CInt(max.Substring(idx,3)) + 1 \'获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("收文编号") = bh & Format(idx,"000")
            End If
        End If
End Select


[此贴子已经被作者于2014-11-24 12:39:09编辑过]
--  作者：hrw68529
--  发布时间：2014/11/24 13:15:00
--  
出现以下错误：Column \'收文编号\' is constrained to be unique.  Value \'收文2014-1000\' is already present.
--  作者：czy
--  发布时间：2014/11/24 13:34:00
--  
出现重复编号了
这样改看看

……
idx = CInt(max.Substring(idx,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("收文编号") = bh & Format(idx,"0000")
            End If
        End If
End Select
--  作者：hrw68529
--  发布时间：2014/11/24 13:50:00
--  
改了之后，出现以下错误：Exception has been thrown by the target of an invocation.
--  作者：czy
--  发布时间：2014/11/24 14:01:00
--  
如果你表中的数据还没有实际应用，那剪切收到日期或收发文列的所有数据，再粘进去
--  作者：有点甜
--  发布时间：2014/11/24 14:29:00
--  

 你要删除所有的编号，重新生成编号方可。