发票号自动递增

【问题标题】：Invoice number auto increment发票号自动递增
【发布时间】：2012-02-23 00:26:21
【问题描述】：

Invoice Number = Now.Year & Now.Month & ?????

如何添加表单加载时自动递增的 5 位数字？

预期输出

20120100001

20120100002

现在.月份问题#

当月份为一位数时发票为10位，而当月份为两位数时为12位？

输出

20121?????

预期输出

201201?????

【问题讨论】：

标签： vb.net auto-increment increment

【解决方案1】：

使用Now.Month.ToString("00")。

Dim str = DateTime.Now.Year & DateTime.Now.Month.ToString("00")

试试这个，

Sub Main()
    For i = 1 To 12
        Console.WriteLine(GetAutonumber(i))
    Next
End Sub

Public Function GetAutonumber(no As Integer) As String
    Dim strNum = no.ToString()
    Dim str = DateTime.Now.Year & DateTime.Now.Month.ToString("00") & New String("0", 5 - strNum.Length) & strNum
    Return str
End Function

【讨论】：

我只想补充一点，当invoiceNumber 递增时，它的最后一个值是否保存在mysql 数据库中？我怎样才能做到这一点？ -谢谢