- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]内部函数执行有误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106834)
-- 发布时间：2017/9/16 10:41:00
-- [求助]内部函数执行有误
老师，
此主题相关图片如下：qq图片20170916103944.png
-- 发布时间：2017/9/16 10:41:00
--
出现两个等号，怎么写能执行呢
-- 发布时间：2017/9/16 10:43:00
--
引用部分
\'添加tblZ的方法
Dim ffstr As String = "dim e = args(0)" & vbcrlf
ffstr &= "dim txt " & vbcrlf
For Each tblname As String In vars("p1_tlff")
ffstr &=Functions.Execute("za_nb_addtblff",e,tblname)
Next
MessageBox.Show(ffstr)
Functions.remove("test")
Functions.Add("test",ffstr)
Functions.Complie()
Functions.Execute("test", e)
\'添加tblZ的方法
自定义函数za_nb_addtblff代码
Dim e = args(0)
Dim tbl =args(1)
Dim tblym As WinForm.TabControl=e.Form.Controls("tbl_" & tbl)
Dim dt As DataTable=lsb("ZA005")
If tblym.name.StartsWith("bbk_")=False Then
Dim ftr As String="{za_cocontr}.[control_id]=\'"& tblym.name.split("_")(0) &"\'"
dt.LoadFilter=ftr
dt.Load
If dt.DataRows.Count>0 Then
Dim code As String
For Each dr As DataRow In dt.DataRows
code &= "txt =Dim " & tblym.name & " As " & dr("control_basectr") & "=" &" e.Form.Controls(""" & tblym.name & """).basecontrol" & vbcrlf
code &="Removehandler " & tblym.name & "." & dr("meth_rmk") & "," & "AddressOf " & dr("meth_id") & vbcrlf
code &="AddHandler " & tblym.name & "." & dr("meth_rmk") & "," & "AddressOf " & dr("meth_id") & vbcrlf
Next
Return code
End If
End If
-- 发布时间：2017/9/16 10:58:00
--
Dim ffstr As String = "dim e = args(0)" & vbcrlf
‘ffstr &= "dim txt " & vbcrlf 去掉
For Each tblname As String In vars("p1_tlff")
ffstr &=Functions.Execute("za_nb_addtblff",e,tblname)
Next
code &= "Dim " & tblym.name & " As " & dr("control_basectr") & "=" &" e.Form.Controls(""" & tblym.name & """).basecontrol" & vbcrlf
-- 发布时间：2017/9/16 11:21:00
--
恩 明白了
还有个错误，老师再给看下
此主题相关图片如下：qq图片20170916112046.png
-- 发布时间：2017/9/16 11:55:00
--
哦 解决了 重复定义问题