主题：[求助]网络编程的自动编号问题

Dim bh As String
Dim dr As DataRow = e.DataRow
Dim pf As String
Dim max As String
Dim cmd As New SQLCommand
Dim dt As DataTable

 

pf = Format(dr("Riqi"),"yyMMdd") '获得编号的前缀

cmd.C
cmd.commandText = "Select top 1 Danhao,* From Bill_Shou Where Danhao Like  '" & pf & "*'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If dr("Danhao") Is Nothing Then
    bh = Format(dr("Danhao"),"yyMMdd001")
Else
    max = dr("Danhao")
    max = cint(max.Substring(7,3)) + 1
    bh = pf & format(max,"000")
End If

e.DataRow("Danhao") = bh

 

以上代码目的是如果是今天的第一单，单号就是121019001，第二单是121019002，依次类推。

运行报错，错误代码为

Exception has been thrown by the target of an invocation.

上传附件。

 调试代码的技巧

 http://www.foxtable.com/help/topics/1485.htm

狐爸来帮下忙吧，这个在系统里面，无法传附件的

 问题不详，联系客服QQ，说明问题，远程协助。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:网络变成自动编号问题.rar

终于做好了一个例子，

目的就是按照日期，自动获取一个单号

比如今天是2012-10-19

获取的第一个是121019001

第二个是121019002

依次类推

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:网络变成自动编号问题.table

ACCESS测试正常，在SQL SERVER2000下，在这句出错

max = max.Substring(6,3)

 

错误提示是
Exception has been thrown by the target of an invocation.

 在之前msgBox(max) 看看max是否获取正确，如果不正确，就调整你的sql语句。

 楼主自己调试一翻吧。

这里出错，肯定是获取的值长度不够：

 

 

 

Dim bh As String

Dim max As String

Dim pf As String = "yyMMdd"

 

e.DataRow("Riqi") = Date.Today()

 

Dim cmd As New SQLCommand

Dim dt As DataTable

 

cmd.C

cmd.commandText = "Select max(Danhao) From Bill"

max = cmd.ExecuteScalar

 

If max = ""  OrElse Max.Length <> 9   Then

    bh = Format(e.DataRow("Riqi"), pf & "001")

Else

    max = max.Substring(6,3)

    bh = Format(e.DataRow("Riqi"), pf) & Format(max+1, "000")

End If

 

e.DataRow("Danhao") = bh