以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请问，以下删除回车与换行的代码有错吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188958)
--  作者：明天的灵
--  发布时间：2023/11/2 12:18:00
--  [求助]请问，以下删除回车与换行的代码有错吗？
\'有个案卷表，其中 的“拟办意见"有回车与换行，现须删除。
‘运行以下代码后，发现有部分行直接整行不见了


Dim ss,ss2 As String
For Each r As Row In Tables("案卷").rows
    ss = r("拟办意见")
    ss2 = ss.Replace(Chr(10),"")              \'   Chr(10) 换行
    ss = ss2.Replace(Chr(13),"")              \'   Chr(13) 回车

    r("拟办意见") = ss
Next
MessageBox.Show("结束")
--  作者：有点蓝
--  发布时间：2023/11/2 12:21:00
--  
这个代码不可能导致整行不见，肯定是其它原因导致的，检查其它代码

代码可以优化一下

For Each r As Row In Tables("案卷").rows
if r.isnull("拟办意见") = false
    r("拟办意见")= r("拟办意见").Replace(Chr(10),"") .Replace(Chr(13),"") 
end if
Next
MessageBox.Show("结束")
--  作者：明天的灵
--  发布时间：2023/11/2 12:52:00
--  
谢谢蓝版主，您的代码运行正常，也没有出现删除整行现象。