- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 旧文件用新版打开后出现的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135676)
-- 发布时间：2019/5/31 17:34:00
-- 旧文件用新版打开后出现的问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新版测试.table |
附件打开后出现以下提示：
---------------------------
提示
---------------------------
找不到自定义函数"DrawCell"！
---------------------------
确定
---------------------------
用旧版可以正常打开使用，如何解决这个问题？因为我之前的项目大量采用这个方式，一直都是非常正常好用的，谢谢版主。
-- 发布时间：2019/5/31 18:11:00
--
打开你的项目，我测试没问题。请升级到最新版测试。
-- 发布时间：2019/5/31 18:56:00
--
此主题相关图片如下：tim图片20190531185239.png
已经升级到最新版，仍然出现提示且无法关闭项目，最后只能强制退出。
-- 发布时间：2019/5/31 20:32:00
--
-- 发布时间：2019/5/31 23:14:00
--
版主，费心了。
用了以上代码仍然如此啊，再费点心看看呗
-- 发布时间：2019/5/31 23:22:00
--
删除项目里的bin目录，重启项目测试
-- 发布时间：2019/5/31 23:52:00
--
谢谢版主有心，问题仍然存在。经深入测试，有以下情况：
表事件DrawCell有代码的情况下，如果表事件PrepareEdit也有代码便出现以上情况，其他则正常。
劳烦版主有空再帮帮忙，一方面解决一下问题，另一方面可以涨涨知识。
-- 发布时间：2019/6/1 7:09:00
--
删除Bin后，有时可以，尔后多打开几次后便又反复出现，不知道什么原因造成。
-- 发布时间：2019/6/1 8:59:00
--
我反馈下，等开发那边处理
-- 发布时间：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