主题：[求助]网络编号公式

前面的sql语句都不用改.

 

Dim ef As String = ""

If dr("类别") = 1 Then

    ef = "C"

ElseIf dr("类别") = 2 Then

    ef = "D"

EndIf

 

dr("编号") = “C" & pf & Format(key, "00000") & ef

 1、去到编号表，加入一列 后缀列；有什么多少个后缀，就加入多少行数据；

 

 2、下面这段代码写到前面去

 

Dim ef As String = ""

If dr("类别") = 1 OrElse dr("类别") Like "铜*" Then

    ef = "C"

Else

    ef = "D"

EndIf

 

 3、

 

Where [前缀] = '" & pf & "'" 改成 Where [前缀] = '" & pf & "' and 后缀 = '" & ef & "'"

 

"Insert Into 编号 (前缀, 顺序号) Values('" & pf & "',1)" 改成 "Insert Into 编号 (前缀, 顺序号,后缀) Values('" & pf & "',1, '" & ef & "')"

 

Where [顺序号] = " & Key & " And [前缀] = '" & pf & "'" 改成 Where [顺序号] = " & Key & " And [前缀] = '" & pf & "' and 后缀 = '" & ef & "'"

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

点击浏览该文件:新建 文本文档.txt

 

看15楼，你写错了

 

Where [前缀] = '" & pf & "'" 改成 Where [前缀] = '" & pf & "' and 后缀 = '" & ef & "'"

不用管，&" 之间要有空格。再有

 

 "Insert Into 编号 (前缀, 顺序号) Values('" & pf & "',1)" 改成 "Insert Into 编号 (前缀, 顺序号,后缀,表名) Values('" & pf & "',1, '" & ef & "', '" & nm & "')"