以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，“UserCode”的类型初始值设定项引发异常。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148141)
--  作者：王万金123
--  发布时间：2020/3/31 21:22:00
--  求助，“UserCode”的类型初始值设定项引发异常。
在全局代码里 写 
 Public ftp1 As New FtpClient \'定义ftp文件管理器名称
在项目AfterOpenProject 写
ftp1.Host="10.1.5.6"
ftp1.Account = "fox"
ftp1.Password = "111111"
ftp1.UTF8 = True
提示 “UserCode”的类型初始值设定项引发异常。

新建一个项目，把相同的代码复制到相同的位置，又没有问题。
--  作者：有点蓝
--  发布时间：2020/3/31 21:35:00
--  
删除项目里的bin目录，重启项目试试
--  作者：王万金123
--  发布时间：2020/3/31 21:41:00
--  
还是不行啊
--  作者：王万金123
--  发布时间：2020/3/31 21:45:00
--  
以前都是可以的，现在就不行了。从删除主表的所有数据开始，出现该问题。
在AfterOpenProject中删除下列代码，就不会提示错误了。
ftp1.Host="10.1.5.6"
ftp1.Account = "fox"
ftp1.Password = "111111"
ftp1.UTF8 = True
--  作者：王万金123
--  发布时间：2020/3/31 21:48:00
--  
帮帮忙啊！老师
--  作者：有点蓝
--  发布时间：2020/3/31 22:05:00
--  
实例发上来测试
--  作者：王万金123
--  发布时间：2020/3/31 22:09:00
--  
好的
--  作者：王万金123
--  发布时间：2020/3/31 22:12:00
--  
不知道实例传完没
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:地勘院项目管理系统.zip
--  作者：有点蓝
--  发布时间：2020/3/31 22:21:00
--  
全局代码有问题，不能在全局代直接给变量赋值，赋值代码放到afteropenproject事件。

Public sjfzr As String = Tables("基本信息").Current("项目负责人实际") 错误的用法，改为下面

全局代码
Public sjfzr As String

afteropenproject
sjfzr = Tables("基本信息").Current("项目负责人实际")
--  作者：王万金123
--  发布时间：2020/3/31 22:32:00
--  
感谢