主题：[求助]流水号自动生成问题

以下内容为程序代码:

1 代码一：
2 Dim idx As String
3 Dim czh As String = ""
4 Dim dt As DataTable
5 Dim cmd As New SQLCommand
6 cmd.C '设置数据源名称
7
8 Select Case e.DataCol.Name
9 Case "全宗号", "年度", "分类号"
10 If e.DataRow.IsNull("全宗号") = False AndAlso e.DataRow.IsNull("分类号") = False AndAlso e.DataRow.IsNull("年度") = False Then
11 If e.DataRow("分类号") = 4 Then
12 czh = e.DataRow("全宗号") & "-" & e.DataRow("年度") & "-%"
13 cmd.commandText = "Select Max(存址号) From [S1室藏案卷] Where 存址号 like '" & czh & "' And id ＜＞ " & e.DataRow("id")
14 idx = cmd.ExecuteScalar
15 If idx = "" Then
16 idx = 10001
17 Else
18 idx = idx.SubString(13) + 1
19 End If
20 e.DataRow("存址号") = e.DataRow("全宗号") & "-" & e.DataRow("年度") & "-" & idx
21 Else
22 e.DataRow("存址号") = ""
23 End If
24 End If
25 Case "存址号"
26 e.DataTable.Save()
27 End Select
28
29 代码二：
30 Dim idx As String
31 Dim czh As String = ""
32 Dim dt As DataTable
33 Dim cmd As New SQLCommand
34 cmd.C '设置数据源名称
35 Select Case e.DataCol.Name
36 Case "全宗号","分类号","年度"
37 If e.DataRow.IsNull("全宗号") = False AndAlso e.DataRow.IsNull("分类号") = False AndAlso e.DataRow.IsNull("年度") = False Then
38 If e.DataRow("分类号") = 4 Then
39 czh = e.DataRow("全宗号") & "-" & e.DataRow("年度") & "-%"
40 cmd.commandText = "Select Max(存址号) AS 存址号 From [S1室藏案卷] Where 存址号 like '" & czh & "' And id ＜＞ '" & e.DataRow("id") & "'"
41 dt = cmd.ExecuteReader()
42 If dt.DataRows.Count = 0 Then
43 idx = ""
44 Else
45 For Each t As DataRow In dt.DataRows
46 idx = t("存址号")
47 Next
48 End If
49
50 If idx = "" Then
51 idx = 10001
52 Else
53 idx = idx.SubString(13) + 1
54 End If
55 e.DataRow("存址号") = e.DataRow("全宗号") & "-" & e.DataRow("年度") & "-" & idx
56 Else
57 e.DataRow("存址号") = ""
58 End If
59 End If
60 Case "存址号"
61 e.DataTable.Save()
62 End Select