1、Dim bh1 As String
Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "Select max(出库系统编号) F rom {出库主表} Where 出库系统编号 is null
bh1 = cmd1.ExecuteScalar
这里，我读出了 最大编号，静态变量bhs ,怎么读取最大值 ，在最大值的基础上 +1 ？？
Static bhs As new Dictionary(of String,Integer) '这个字典用于记录每个前缀的下一序号
bhs
If e.Path = "bianhao.htm"
If e.PostValues.ContainsKey("开单日期") Then
Dim max As Integer
Dim bh As String
Dim prefix As String = "CK" & "-" & Format(CDate(e.PostValues("开单日期")), "yyyyMMdd")
If bhs.ContainsKey(prefix) = False Then '如果字典中不存在次前缀的序号,
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select max(出库系统编号) F rom {出库主表} Where 出库系统编号 Like '" & prefix & "%'"
bh = cmd.ExecuteScalar
If bh IsNot Nothing Then
bh = bh.SubString(12)
Integer.TryParse(bh,max)
End If
bhs.Add(prefix,max) ’
Else
max = bhs(prefix) ‘,
End If
max = max + 1
bhs(prefix) = max 这里是原来的经典代码， 我觉得这里max 是INTEGER ,怎么这里变成了 string ??
e.WriteString(Prefix & "-" & Format(max,"00000"))
End If
End If
请关注下 红色 字体，谢谢老师 ！！！
加好友 
发短信
Post By：2017/5/16 11:15:00 [只看该作者]
