我的第一个博客－－试试功能

Posted 2020-11-05 wwwwww222

我的第一个附笔，试试功能

Private Sub Command13_Click()
If Me![Command13].Caption = "查看" Then
     Me![Command13].Caption = "添加"
     Me.AllowAdditions = True ‘允许添加
     Me.子窗体.Form.AllowAdditions = True
     Me.子窗体.Form.AllowDeletions = True ‘允许删除
     Me.子窗体.Form.AllowEdits = True
     Me.AllowEdits = True
     Me.电缆编码.SetFocus
     Me.DataEntry = True ‘输入界面空白
     Me.Command25.Visible = True
    Me.Requery
     ElseIf Me![Command13].Caption = "添加" Then
     Me![Command13].Caption = "查看"
     Me.DataEntry = False
     Me.AllowAdditions = False ‘不允许添加
     Me.AllowDeletions = False ‘不允许删除
     Me.AllowEdits = False ‘不允许编辑
     Me.Command25.Visible = False
     Me.子窗体.Form.AllowAdditions = False
     Me.子窗体.Form.AllowDeletions = False
     Me.子窗体.Form.AllowEdits = False
     Me.Requery
     
 End If
End Sub

　　很方便的

2\\标题　

怎么都行