Foxtable(狐表)用户栏目专家坐堂 → [求助]为何会出现这个情况?


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

主题:[求助]为何会出现这个情况?

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


加好友 发短信
等级:四尾狐 帖子:857 积分:6156 威望:0 精华:0 注册:2015/12/24 13:02:00
[求助]为何会出现这个情况?  发帖心情 Post By:2017/9/17 18:47:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170917184414.png
图片点击可在新窗口打开查看

why?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/17 19:03:00 [只看该作者]

1、先把你的内容拷贝到txt文件去,看是否正常;

 

2、如果内容是正常的,再拷贝回来,关闭项目,重新打开项目测试。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/17 19:04:00 [只看该作者]

 你把bin文件夹删除,重新打开项目,加密狗换一个usb插口插入。

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


加好友 发短信
等级:四尾狐 帖子:857 积分:6156 威望:0 精华:0 注册:2015/12/24 13:02:00
  发帖心情 Post By:2017/9/17 19:15:00 [只看该作者]

Dim dr As DataRow = DataTables("动态函数表").Find("函数名 = 'up'")
Functions.Add("up001",dr("内容"))
Functions.Complie()
Functions.Execute("up001")

我这样运行,报错,求解?


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


加好友 发短信
等级:四尾狐 帖子:857 积分:6156 威望:0 精华:0 注册:2015/12/24 13:02:00
  发帖心情 Post By:2017/9/17 19:18:00 [只看该作者]

调用的目标发生了异常。
索引超出了数组界限。

报错

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/17 19:24:00 [只看该作者]

 把单元格内容拷贝粘贴到txt文件里显示,看是否正确。

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


加好友 发短信
等级:四尾狐 帖子:857 积分:6156 威望:0 精华:0 注册:2015/12/24 13:02:00
  发帖心情 Post By:2017/9/17 19:36:00 [只看该作者]

正常的

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/17 19:57:00 [只看该作者]

以下是引用18523982317在2017/9/17 19:15:00的发言:
Dim dr As DataRow = DataTables("动态函数表").Find("函数名 = 'up'")
Functions.Add("up001",dr("内容"))
Functions.Complie()
Functions.Execute("up001")

我这样运行,报错,求解?

 

1、split函数,只能分拆单个字符。vbcrlf是两个字符,所以有问题;你可以改成split(chr(13))

 

2、执行函数的时候,你要传入参数,如 Functions.Execute("up001", e)


 回到顶部