以下是引用有点甜在2019/6/4 17:28:00的发言:
试试这样
'''
Dim e As Object = Args(0)
Dim 函数名称 As String = Args(1)
If 函数集.Contains(函数名称)
try
Functions.Execute(函数名称, e)
catch ex As exception
函数集.Remove(函数名称)
End try
Else
Dim dr As DataRow = DataTables("表A").Find("第一列 = '" & 函数名称 & "' and 第二列 is not null and 第二列 <> ''")
If dr IsNot Nothing
try
函数集.Remove(函数名称)
Functions.Remove(函数名称)
Functions.Add(dr("第一列"), dr("第二列"))
Functions.complie()
函数集.Add(函数名称)
Functions.Execute(函数名称, e)
catch ex As exception
函数集.Remove(函数名称)
End try
End If
End If
依然如此,用不了新版,请帮忙。
[此贴子已经被作者于2019/6/5 8:22:20编辑过]