引用部分
'添加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
加好友 
发短信
Post By：2017/9/16 10:41:00 [只看该作者]
此主题相关图片如下：qq图片20170916103944.png
