以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  进入控件时  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158695)
--  作者：良才
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：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
--  作者：良才
--  发布时间：2020/12/1 7:51:00
--  
谢谢