以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]我更新新版后，换了电脑，进程序就出了问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143949)

--  作者：a937775799 --  发布时间：2019/12/6 21:43:00 --  [求助]我更新新版后，换了电脑，进程序就出了问题 在项目事件afteropenproject中是 。。。。。。。。。。。。。。。。 Forms("资料管理主表_f").open 此主题相关图片如下：i${e)dkx`u`s9ew7hg)hxib.png \'生成临时表 Dim arr As List(Of String)  = DataTables("分项工程表").GetValues("分项工程名称") Dim fxgc As String  = "" If arr.Count > 0     fxgc = cstr(  arr.ToArray(0) )          Dim  temp As String = "[分项工程名称] like \'"  +  fxgc   +  "\' "     Dim t As Table = Tables("施工记录表")     t.Filter = temp     Functions.Execute("根据施工记录表生成模版数据",fxgc ,t) End If 。。。。。。。。。。。。。。。。 另外我设置的加密狗也不执行了

--  作者：有点蓝 --  发布时间：2019/12/6 22:25:00 --   没有必要多此一举 Dim arr As List(Of String)  = DataTables("分项工程表").GetValues("分项工程名称") If arr.Count > 0     Dim  temp As String = "[分项工程名称] = \'"  &  arr(0) &  "\' "     Dim t As Table = Tables("施工记录表")     t.Filter = temp     Functions.Execute("根据施工记录表生成模版数据",  arr(0) , t) End If

--  作者：a937775799 --  发布时间：2019/12/7 0:25:00 --   这样改就好了呢 是不是新版本 做了 修改

--  作者：有点蓝 --  发布时间：2019/12/7 8:50:00 --   新版本升级到.net4.0，ToArray的用法确实有变化。但是主要的原因还是代码写的不够严谨

--  作者：a937775799 --  发布时间：2019/12/7 17:15:00 --   我发布项目的时候 又报这个 错误但是 找不到 代码在哪里  时间久了 忘记了  怎么找啊

--  作者：有点蓝 --  发布时间：2019/12/7 17:20:00 --   输出全部代码，搜索：http://www.foxtable.com/webhelp/topics/1987.htm