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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新版测试.table

 

附件打开后出现以下提示：

---------------------------
提示
---------------------------
找不到自定义函数"DrawCell"！
---------------------------
确定  
---------------------------

 

用旧版可以正常打开使用，如何解决这个问题？因为我之前的项目大量采用这个方式，一直都是非常正常好用的，谢谢版主。

 

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

 

 

此主题相关图片如下：tim图片20190531185239.png

已经升级到最新版，仍然出现提示且无法关闭项目，最后只能强制退出。

版主，费心了。

用了以上代码仍然如此啊，再费点心看看呗

删除项目里的bin目录，重启项目测试

谢谢版主有心，问题仍然存在。经深入测试，有以下情况：

表事件DrawCell有代码的情况下，如果表事件PrepareEdit也有代码便出现以上情况，其他则正常。

劳烦版主有空再帮帮忙，一方面解决一下问题，另一方面可以涨涨知识。

删除Bin后，有时可以，尔后多打开几次后便又反复出现，不知道什么原因造成。

我反馈下，等开发那边处理

试试这样

 

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