Foxtable(狐表)用户栏目专家坐堂 → [求助]用试用版编写的程序,过一段时间就不运行了


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

主题:[求助]用试用版编写的程序,过一段时间就不运行了

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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2016/9/5 15:48:00 [只看该作者]

A的长度是3,是有问题,但不知道怎样造成的。如何纠正它?

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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/5 15:53:00 [只看该作者]

For Each r As Row In Tables("表A").Rows
    r("名称") = r("名称").Replace(chr(10), "").Replace(chr(13), "")
Next

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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2016/9/5 16:34:00 [只看该作者]

谢谢!解决问题了。
这种空格实际上看不见,如果不用代码,还真不知道怎样删除。形成这种现象的原因会不会是这两种情况:
1、表数据是从execl导入的;
2、运行程序后,表数据发生了变化。

程序中这种表有好多个,我想一键清除所有的表中“名称”列的空格,还不太会写代码,請版主帮忙完善一下。谢谢!
For Each dt As DataTable In DataTables
Next
For Each r As Row In dt.Rows
    r("名称") = r("名称").Replace(chr(10), "").Replace(chr(13), "")
Next

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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/5 16:48:00 [只看该作者]

For Each dt As DataTable In DataTables
    For Each r As Row In dt.Rows
        r("名称") = r("名称").Replace(chr(10), "").Replace(chr(13), "")
    Next
Next


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


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2016/9/5 17:28:00 [只看该作者]


显示“Rows不是datatable成员”
[此贴子已经被作者于2016/9/5 18:58:43编辑过]

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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/5 20:06:00 [只看该作者]

For Each dt As DataTable In DataTables
    For Each r As dataRow In dt.dataRows
        r("名称") = r("名称").Replace(chr(10), "").Replace(chr(13), "")
    Next
Next

 回到顶部
总数 16 上一页 1 2