如下程序,为什么每次打开这个程序,图号总是从WS1000001开始的,而不是从上次已经保存的数据上叠加呢
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

   Static a As Double

   a = a + 1

   Label4.Caption = "WS" & 1000000 + a

   Call instore

   MsgBox "新增数据成功！"

End If

End Sub

 



 

还真能碰到用access写程序的啊   

祝你成功

你的把上次的尾号保存起来  或者提取出来  本次再加1

你那么做 应该不行

Static a As Double
你应该把以上语句写在if语句之外，不然每次都会重新声明变量