[求助]自定义函数Form错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

Form自定义函数中有误，不知道怎么修改，请老师给看看。

Dim sender = args(0)

Dim e As object= args(1)

’Dim Form As object

Dim dataname As String=e.Form.Name

Dim dt As DataTable=DataTables("Z002菜单生成")

Dim dr As DataRow=dt.Find("编码规则='"& sender.Name &"'")

If dr IsNot Nothing And dr.IsNull("执行命令")=False Then

Select Case dr("执行命令")

Case "模拟点击"

Dim btn As WinForm.Button

e.Form.Controls(dr("打开对应窗口")).PerformClick() 是否这里写的不对呢？

End Select

End If

错误提示

此主题相关图片如下：qq图片20151202083611.png

主题：[求助]自定义函数Form错误