Foxtable(狐表)用户栏目专家坐堂 → 进入控件时


  共有3334人关注过本帖树形打印复制链接

主题:进入控件时

帅哥哟,离线,有人找我吗?
良才
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
进入控件时  发帖心情 Post By:2020/11/29 17:21:00 [只看该作者]

窗口全局代码Enter,能用简便代码吗?请老师指教,谢谢!
Select Case e.Sender.Name
    Case "民族"
        If e.Form.Controls("教工姓名").Value Is Nothing Then
            e.Form.Controls("教工姓名").Select
            Return
        End If
    Case "身份证号"
        If e.Form.Controls("民族").Value Is Nothing Then
            e.Form.Controls("民族").Select
            Return
        End If
    Case "政治面貌"
        If e.Form.Controls("身份证号").Value Is Nothing Then
            e.Form.Controls("身份证号").Select
            Return
        End If
    Case "婚姻状况"
        If e.Form.Controls("政治面貌").Value Is Nothing Then
            e.Form.Controls("政治面貌").Select
            Return
        End If
End Select
[此贴子已经被作者于2020/11/29 17:26:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/29 21:17:00 [只看该作者]

全局代码
public _dict as dictionary(of string,string)

afteropenproject事件
_dict= new dictionary(of string,string)
_dict.add("民族","教工姓名")
_dict.add("身份证号","民族")
……其它自行补充完整

窗口全局代码Enter
if _dict.containskey(e.Sender.Name)
        If e.Form.Controls(_dict(e.Sender.Name)).Value Is Nothing Then
            e.Form.Controls(_dict(e.Sender.Name)).Select
        End If
end if

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2020/12/1 7:51:00 [只看该作者]

谢谢

 回到顶部