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

试试这样

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