老师，
代码里面定义了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)
Next
' 批量添加控件
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)
Next
Case"cx"
End Select
代码有误，劳烦老师给看下
加好友 
发短信
Post By：2017/9/10 21:49:00 [只看该作者]
此主题相关图片如下：qq图片20170910215407.png
