如何代码删除字段中的空行？

Henry D. Sy

例子呢

Henry D. Sy

付谦 发表于 2021-9-7 15:55
[综合］字段中有２行：首行是句号，第二行是　妣黄氏，生于清乾隆　如：

。

简化你的例子传上来

Henry D. Sy

付谦 发表于 2021-9-8 22:05
现传附件，请高手帮助

1. Dim rs As New ADODB.Recordset
   
2.     Dim Str As String
   
3.     rs.Open "表", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
4.     Do While Not rs.EOF
   
5.         Str = Mid(rs!综合, rs!本页行 * rs!每行字数 + 2, rs!转下页行 * rs!每行字数)
   
6.         If InStr(Str, vbCrLf) <> 0 Then
   
7.             Str = Replace(Str, vbCrLf, "")
   
8.         End If
   
9.         CurrentDb.Execute "INSERT INTO 表1(综合1)VALUES('" & Str & "')"
   
10.         rs.MoveNext
    
11.     Loop
    
12.     rs.Close
    
13.     Set rs = Nothing

复制代码

Henry D. Sy

付谦 发表于 2021-9-8 22:05
现传附件，请高手帮助

其实也没必要用代码
查询就行

1. UPDATE 表 LEFT JOIN 表１ ON 表.序号 = 表１.序号 SET 表１.综合1 = Replace(Mid([综合],[本页行]*[每行字数]+2,[转下页行]*[每行字数]),Chr(13) & Chr(10),"");
   

复制代码