主题：旧文件用新版打开后出现的问题

打开你的项目，我测试没问题。请升级到最新版测试。

试试这样

'''
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

我测试没问题。打开你的例子项目，输入代码，然后重新打开测试。如果还有问题，联系客服远程测试一下。