通过动态函数给事件 指派执行代码
比如放在 Enter 下
Dim drx As DataRow = DataTables("系统代码").SQLFind("[窗口名称] = '全局代码 ' And [代码名称] = '" & e.Sender.name & "' Enter ") '在后台查找符合条件的行
If drx IsNot Nothing Then
Functions.Execute(drx("代码名称"),e)
End If
Dim drx As DataRow = DataTables("系统代码").SQLFind("[窗口名称] = '全局代码 ' And [代码名称] = '" & e.Sender.name & "' Leave ") '在后台查找符合条件的行
If drx IsNot Nothing Then
Functions.Execute(drx("控件名称"),e)
End If
我现在是这么做的，就会每个控件的事件都要去修改
如何做到自动识别
此主题相关图片如下：企业微信截图_20210630123923.png
[此贴子已经被作者于2021/6/30 12:40:27编辑过]
加好友 
发短信
Post By：2021/6/29 19:03:00 [显示全部帖子]
