通过动态函数给事件 指派执行代码
比如放在 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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2021-6/202163012393984212.png)
[此贴子已经被作者于2021/6/30 12:40:27编辑过]