前面的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
加好友 
发短信
Post By：2015/5/10 9:12:00 [只看该作者]
