主题：在窗口中使用菜单和使用按钮为什么效果不一样?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工资.rar

菜单中有"保存"和"修改",另外在窗口设"保存"和"修改"两个按钮,其代码一样,使用效果不一样.比如:在姓名栏中输入名字后点击菜单中的"保存",光标仍在姓名栏中,这时候不移开光标,仍可直接输入字符,保存不起作用.但如果使用"保存"按钮,光标不见了,再在姓名栏中就输入不了字符.为什么会有这种结果?请高手指教!

修改菜单按钮事件

 

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按钮的时候，焦点移动到了按钮上。

谢谢!问题得到园满解决!