以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  【发布后程序win10报错】请检索 LoaderExceptions 属性  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124712)
--  作者：ycli368
--  发布时间：2018/9/12 12:21:00
--  【发布后程序win10报错】请检索 LoaderExceptions 属性
.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.9.9.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
无法加载一个或多个请求的类型。有关更多信息，请检索 LoaderExceptions 属性。
--  作者：ycli368
--  发布时间：2018/9/12 12:35:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:after代码.txt
--  作者：ycli368
--  发布时间：2018/9/12 13:42:00
--  
大牛们，帮忙看下
--  作者：ycli368
--  发布时间：2018/9/12 13:42:00
--  
win7 正常，win10报错
--  作者：有点甜
--  发布时间：2018/9/12 15:00:00
--  

加入msgbox定位是哪段代码报错？这段代码有问题？

 

        Select Case dr("FSsVarType")
            Case "Boolean"
                Vars.Add(dr("FSsVarName"),Gettype(Boolean),cbool(dr("FSsDefault")))
            Case "String"
                Vars.Add(dr("FSsVarName"),Gettype(String),Cstr(dr("FSsDefault")))
            Case "DateTime"
                Vars.Add(dr("FSsVarName"),Gettype(Date),Cdate(dr("FSsDefault")))
            Case "Int32"
               
                Vars.Add(dr("FSsVarName"),Gettype(Integer),Cint(dr("FSsDefault")))
            Case "Int16"
                Vars.Add(dr("FSsVarName"),Gettype(Short),Cshort(dr("FSsDefault")))
            Case "Byte"
                Vars.Add(dr("FSsVarName"),Gettype(Byte),CByte(dr("FSsDefault")))
            Case "Double"
                Vars.Add(dr("FSsVarName"),Gettype(Double),Cdbl(dr("FSsDefault")))
            Case "Single"
                Vars.Add(dr("FSsVarName"),Gettype(Single),Csng(dr("FSsDefault")))
            Case "Decimal"
                Vars.Add(dr("FSsVarName"),Gettype(Decimal),Cdec(dr("FSsDefault")))
            Case "Text"
                Vars.Add(dr("FSsVarName"),Gettype(String),Cstr(dr("FSsDefault")))
        End Select