专家坐堂-如何去除列各单元的换行符？代码错误请指正！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何去除列各单元的换行符？代码错误请指正！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180833)

--  作者：xnsiwei
--  发布时间：2022/10/17 17:52:00
--  如何去除列各单元的换行符？代码错误请指正！

在命令行执行代码：
Dim x As Object
x = Tables("rw4").Cols("牵头单位")
x = x.Replace(vbcr, "").Replace(vblf, "")
Tables("rw4").Cols("牵头单位") = Tables("rw4").Cols("牵头单位").Replace(vblf, "").Replace(vbcr, "")

出现错误了

[此贴子已经被作者于2022/10/17 17:53:10编辑过]

--  作者：有点蓝
--  发布时间：2022/10/17 20:09:00
--
Tables("rw4").current("牵头单位") = Tables("rw4").current("牵头单位").Replace(vblf, "").Replace(vbcr, "")

--  作者：xnsiwei
--  发布时间：2022/10/19 9:50:00
--

在命令行执行代码：
Dim x As Object
x = Tables("rw4").Cols("牵头单位")
x = x.Replace(vbcr, "").Replace(vblf, "")
Tables("rw4").current("牵头单位") = Tables("rw4").current("牵头单位").Replace(vblf, "").Replace(vbcr, "")

再次出现错误了：
此主题相关图片如下：11.png

--  作者：有点蓝
--  发布时间：2022/10/19 9:52:00
--
前面3行代码去掉

--  作者：xnsiwei
--  发布时间：2022/10/20 16:11:00
--
Tables("rw4").current("牵头单位") = Tables("rw4").current("牵头单位").Replace(vblf, "").Replace(vbcr, "")

这行代码只能处理当前行，不能处理所有的行，如何才能处理所有的行，谢谢！

--  作者：有点蓝
--  发布时间：2022/10/20 16:26:00
--
循环遍历所有行：http://www.foxtable.com/webhelp/topics/1438.htm

For Each r As Row In Tables("订单").Rows
    r("牵头单位") = r("牵头单位").Replace(vblf, "").Replace(vbcr, "")
Next

--  作者：xnsiwei
--  发布时间：2022/10/20 17:08:00
--
问题解决，非常感谢