修改菜单按钮事件

Dim obj = e.Form.ActiveControl
e.form.controls("TabControl1").Select
Select Case e.StripItem.Name
    Case "增行"
        Tables("工资表").AddNew()
    Case "修改"
        Tables("工资表").Current.Locked = False
    Case "保存"
        Tables("工资表").Current.Locked = True
        Tables("工资表").Current.Save()
    Case "上一行"
        With Tables("工资表")
            .Position = .Position - 1
        End With
    Case "下一行"
        With Tables("工资表")
            .Position = .Position + 1
        End With
End Select
If obj IsNot Nothing Then obj.Select

菜单按钮点击的时候，焦点没有离开。点击button按钮的时候，焦点移动到了按钮上。