Dim i As Long
Private Sub Command1_Click()
Label1.Caption = "AD—" & i
i = i + 1
End SubPrivate Sub Form_Load()
i = 54001
End Sub
Private Sub Command1_Click()
Label1.Caption = "AD—" & i
i = i + 1
End SubPrivate Sub Form_Load()
i = 54001
End Sub
我感觉就是楼上所写的,所以就不重复了;
如果有更好的想法的话,我更要看了。