Question

我正在使用visual studio 2013.我在visual basic中创建了一个windows应用程序表单并使用它在excel中输入数据。我编写了一个代码来自动增加一个唯一的数字，需要在表单加载时立即出现。但是当时我没有出现，当我通过excel中的表单输入第一个数据时，它会显示我的数字。该数字应包含今天的月份日期，然后是01,02 ......并且应该在第二天重置为01。例如：101001（第10个月，第10天，第01期），101002,101003 ......然后明天它应该显示101101 这是我的代码

 Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated
    Dim t As String = Format(Today, "MMdd")
    Dim d As Excel.Range
    'Add 1 to the counter if the day is still the same,
    d = xlWorkBook.Sheets("Sheet2").Range("A1")
    If d.Value = Today Then
        d.Offset(1, 0).Value = d.Offset(1, 0).Value + 1
    Else
        d.Value = Today
        d.Offset(1, 0).Value = 1
    End If
    If d.Offset(1, 0).Value < 10 Then
        Me.txtQuote.Text = t & "0" & d.Offset(1, 0).Value
    Else
        Me.txtQuote.Text = t & d.Offset(1, 0).Value
    End If

End Sub

如何获得所需的号码？我应该在哪里放置代码，以便在表单加载后，数字应该出现在文本框中

vb.net中的自动增量

0 个答案: