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

 项目没问题。

 老师，
 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104035&replyID=&skin=1
这个例子不能这样改吗？

看懂代码，自行修改。

类似

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105303&skin=0

 

 老师，
  还是老问题

Dim pg As WinForm.TabPage=tab.TabPages(dr("ym_gzid"))
    Dim s1 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_ml_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    Dim trvmls As WinForm.TreeView=FormS(dr("ckname")).CreateControl("trv_zy_" & dr("ym_gzid"),ControlTypeEnum.TreeView)
    Dim pmkj As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_kj_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    Dim pmcx As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_cx_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    Dim pmcz As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_cz_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    Dim pmxs As WinForm.Panel=FormS(dr("ckname")).CreateControl("pnl_xs_" & dr("ym_gzid"),ControlTypeEnum.Panel)
    'S1.BackMost=True
    Dim s2 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_kj_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    Dim s3 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_cx_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    S3.Orientation=0
    Dim s4 As WinForm.SplitContainer=FormS(dr("ckname")).CreateControl("SPL_xs_" & dr("ym_gzid"),ControlTypeEnum.SplitContainer)
    'S4.TopMost=True
    S4.Orientation=0
    S1.Panel2.AddControl(S2)
    S1.Panel1.AddControl(trvmls)
    S2.Panel1.AddControl(S3)
    S2.Panel2.AddControl(pmkj)
    S3.Panel2.AddControl(S4)
    S3.Panel1.AddControl(pmcx)
    S4.Panel2.AddControl(pmcz)
    S4.Panel1.AddControl(pmxs)
    pmxs.BackColor=Color.red
    trvmls.Dock=5
    pmkj.Dock=5
    pmcx.Dock=5
    pmcz.Dock=5
    pmcz.Dock=5
    S1.FixedPanel=1
    S2.FixedPanel=2
    S3.FixedPanel=1
    S4.FixedPanel=2
    S1.Dock=5
    S2.Dock=5
    S3.Dock=5
    S4.Dock=5
    pg.AddControl(S1)
   
    '批量添加控件
    Dim zd() As object ={pmkj,pmcx,pmcz,pmxs}
    Dim st As Date = Date.Now
    Dim str As String = "dim e = args(0)" & vbcrlf
    str &= "dim txt " & vbcrlf
    For Each mbmc As object In zd '显示所对应的值
        MessageBox.Show(mbmc.name )
        str &= Functions.Execute("za_nb_addctron",e,mbmc)
        str &= vbcrlf
    Next
    msgbox(str)
    Functions.remove("test")
    Functions.Add("test",str)
    Functions.Complie()
    Functions.Execute("test", e)
    '' 批量添加控件
自定义函数用的是您给的，为什么还是存在错误，控件无法找到呢？

   和昨天的一样 没有测试出哪里的问题

上传实例测试