当a=?时,每点击一次Command5这个控件, Label4.Caption就会往上加1呢,请教会的人
Private Sub Command5_Click()If checkdata = True Then
rs.AddNew
rs.Fields("drawingnumber") = Trim(Label4.Caption)
rs.Fields("description") = Trim(Text2.Text)
rs.Fields("version") = Trim(Text3.Text)
rs.Update
Dim a As Double
a = a + 1
a = ?
Label4.Caption = "WS" & a + 1
Call instore
MsgBox "新增数据成功！"
End If
End Sub
如上的程序中,a=?时,每点击一次Command5这个控件, Label4.Caption就会往上加1呢,请教会的人,
