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