如何得到这样的编号？

smilingkiss

思路：通过n＝dcount（）查找并确定当前客户当天有多少个已经存在的订单，然后加上相应字符在后面即可（例如n＝1的时候加上A，n＝2的时候加上B……）关于n＝1的时候对应A，n＝2的时候对应B……语句可以参考如下：
Dim cc As String

    For n = 1 To 6  
       cc = Chr(n+64)      'A的ascii码是65，B是66，C是67……，chr是把ascii码转换成字符串的函数
    Next n