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

老师，

代码里面定义了panl

'Dim pmcx As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_" & dr("ym_gzid") & "_cx",ControlTypeEnum.Panel)

'批量添加控件

Dim zd As New Dictionary(Of String, object)

zd.Add("02",pmkj)

zd.Add("03",pmcx)

zd.Add("04",pmcz)

zd.Add("05",pmxs)

For Each mbmc As object In zd.Values '显示所对应的值

Functions.Execute("za_nb_addctron",e,mbmc)

' 批量添加控件

za_nb_addctron自定义函数如下

Dim e As object=args(0)

Dim pnl As object = args(1)

Select Case pnl.name.split("_")(2)

Case "cx"

Dim s1() As String = {"btn_xz_","btn_xg_","btn_sc_","btn_gb_"}

For Each si As String In s1

Dim code As String = "dim e = args(0)" & vbcrlf

code &= "dim txt = e.form.CreateControl(""" & si & pnl.name.split("_")(1) & """, ControlTypeEnum.Button)" & vbcrlf

code &= "e.form.Controls(""" & pnl.name & """).AddControl(txt)" & vbcrlf‘

'msgbox(code)

Functions.remove("test")

Functions.Add("test",Code)

Functions.Complie()

Functions.Execute("test", e)

Case"cx"

End Select

代码有误，劳烦老师给看下

主题：[求助]自定义函数问题