按英文字母递增

LJB

订单批号按JH1203001A  
               JH1203001B
               JH1203002A
               JH1203002B
主要是最后的字母，按A-Z排序，前面的JH是部门代码，1203是年和月，001和002是订单笔数，最后按字母递增？这样的代码如何写？谢谢！！表名：订单总表，栏位名称：批号。

风中漫步

这样?再简单的还没想出来{:soso_e128:}

Const zm As String = "ABCDEFGHIGKLMNOPQRSTUVWXYZ"

Private Sub Command0_Click()
  Dim i As Integer, A As String, B As Integer, Bh As String, newbh As String
  For i = 1 To 26
      A = Mid(zm, i, 1)
      Bh = "JH1203001"
      newbh = Bh & A
      b=DCount("*", "TB1", "BH='" & newbh & "'")
      If B = 0 Then
         Text1.Value = newbh
         Exit For
      End If
  Next i
End Sub

pq318

是不是可以这样连续递增呢Chr(ASC(Chr(Mid(批号，10,1))+1))

todaynew

风中漫步 发表于 2012-3-24 16:44
这样?再简单的还没想出来

Const zm As String = "ABCDEFGHIGKLMNOPQRSTUVWXYZ"

Chr(ASC(Chr("A")+1))计算结果为"B"