![]() |
#2
shenyang11412016-06-11 23:44
|
Select Case Button.key
Case "add"
ControlState True
Adodc1.Recordset.AddNew
For i = 1 To Text1.UBound
Text(i) = ""
Text(i).Locked = False
Next i
Text1(0).SetFocus
Case "save"
Adodc1.Recordset.Update
ControlState False
Case "cancel"
ControlState False
For i = 1 To Text1.UBound
Text(i) = ""
Text(i).Locked = True
Next i
Case "close"
Unload Me
End Select
End Sub
只有本站会员才能查看附件,请 登录