Foxtable(狐表)用户栏目专家坐堂 → 求助,“UserCode”的类型初始值设定项引发异常。


  共有2763人关注过本帖树形打印复制链接

主题:求助,“UserCode”的类型初始值设定项引发异常。

帅哥哟,离线,有人找我吗?
王万金123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:560 威望:0 精华:0 注册:2020/2/7 11:15:00
求助,“UserCode”的类型初始值设定项引发异常。  发帖心情 Post By:2020/3/31 21:22:00 [只看该作者]

在全局代码里 写 
 Public ftp1 As New FtpClient '定义ftp文件管理器名称
项目AfterOpenProject 写
ftp1.Host="10.1.5.6"
ftp1.Account = "fox"
ftp1.Password = "111111"
ftp1.UTF8 = True
提示 “UserCode”的类型初始值设定项引发异常。

新建一个项目,把相同的代码复制到相同的位置,又没有问题。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106067 积分:539428 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/31 21:35:00 [只看该作者]

删除项目里的bin目录,重启项目试试

 回到顶部
帅哥哟,离线,有人找我吗?
王万金123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:560 威望:0 精华:0 注册:2020/2/7 11:15:00
  发帖心情 Post By:2020/3/31 21:41:00 [只看该作者]

还是不行啊

 回到顶部
帅哥哟,离线,有人找我吗?
王万金123
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:560 威望:0 精华:0 注册:2020/2/7 11:15:00
  发帖心情 Post By:2020/3/31 21:45:00 [只看该作者]

以前都是可以的,现在就不行了。从删除主表的所有数据开始,出现该问题。
AfterOpenProject中删除下列代码,就不会提示错误了。
ftp1.Host="10.1.5.6"
ftp1.Account = "fox"
ftp1.Password = "111111"
ftp1.UTF8 = True

 回到顶部
帅哥哟,离线,有人找我吗?
王万金123
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:560 威望:0 精华:0 注册:2020/2/7 11:15:00
  发帖心情 Post By:2020/3/31 21:48:00 [只看该作者]

帮帮忙啊!老师

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106067 积分:539428 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/31 22:05:00 [只看该作者]

实例发上来测试

 回到顶部
帅哥哟,离线,有人找我吗?
王万金123
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:560 威望:0 精华:0 注册:2020/2/7 11:15:00
  发帖心情 Post By:2020/3/31 22:09:00 [只看该作者]

好的

 回到顶部
帅哥哟,离线,有人找我吗?
王万金123
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:560 威望:0 精华:0 注册:2020/2/7 11:15:00
  发帖心情 Post By:2020/3/31 22:12:00 [只看该作者]

不知道实例传完没
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:地勘院项目管理系统.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106067 积分:539428 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/31 22:21:00 [只看该作者]

全局代码有问题,不能在全局代直接给变量赋值,赋值代码放到afteropenproject事件。

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

全局代码
Public sjfzr As String

afteropenproject
sjfzr = Tables("基本信息").Current("项目负责人实际")

 回到顶部
帅哥哟,离线,有人找我吗?
王万金123
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:560 威望:0 精华:0 注册:2020/2/7 11:15:00
  发帖心情 Post By:2020/3/31 22:32:00 [只看该作者]

感谢

 回到顶部