求代碼：備注字段分段精減后合并。

ynjxw

在備注字段（屬一條記錄）里有原始數(shù)據(jù)如：
1、過(guò)敏指數(shù)： 極易發(fā) ，天氣條件極易誘發(fā)過(guò)敏，易過(guò)敏人群盡量減少外出，外出宜穿長(zhǎng)衣長(zhǎng)褲并佩戴好眼鏡和口罩，外出歸來(lái)時(shí)及時(shí)清潔手和口鼻。
2、空氣污染擴(kuò)散條件指數(shù)： 中 ，氣象條件對(duì)空氣污染物稀釋、擴(kuò)散和清除無(wú)明顯影響，易感人群應(yīng)適當(dāng)減少室外活動(dòng)時(shí)間。
3、美發(fā)指數(shù)： 極適宜 ，溫濕適宜，風(fēng)力較小，這為您的頭發(fā)創(chuàng)造一個(gè)健康、潔凈的生長(zhǎng)環(huán)境，加上您細(xì)心的呵護(hù)打理，您的秀發(fā)定能飄逸動(dòng)人。
4、洗車指數(shù)： 不宜 ，不宜洗車，未來(lái)24小時(shí)內(nèi)有雨，如果在此期間洗車，雨水和路上的泥水可能會(huì)再次弄臟您的愛(ài)車。
5、運(yùn)動(dòng)指數(shù)： 較適宜 ，天氣較好，無(wú)雨水困擾，較適宜開(kāi)展各種戶內(nèi)外運(yùn)動(dòng)，但因氣溫較低，在戶外運(yùn)動(dòng)請(qǐng)注意增減衣物。
6、逛街指數(shù)： 適宜 ，天氣較好，在這種天氣里去逛街，既可暢快地放松身心，又會(huì)有很多意外收獲，真是無(wú)比愜意。
--------------------------------------------------------------------------------------------------------------------------------------------------------
現(xiàn)想精減成這樣（也就是取每段前20個(gè)字符，并加"..."），并在查詢中顯示（屬一條記錄）：
1、過(guò)敏指數(shù)：極易發(fā)，天氣條件極易誘發(fā)過(guò)...
2、空氣污染擴(kuò)散條件指數(shù)：中，氣象條件對(duì)...
3、美發(fā)指數(shù)：極適宜，溫濕適宜，風(fēng)力較小...
4、洗車指數(shù)：不宜，不宜洗車，未來(lái)24小...
5、運(yùn)動(dòng)指數(shù)：較適宜，天氣較好，無(wú)雨水困...
6、逛街指數(shù)：適宜，天氣較好，在這種天氣...
--------------------------------------------------------------------------------------------------------------------------------------------------------
注：原始及精減后都需要保證段落不變。
附：原始表。
跪求啊！

andymark

select left(備注,20) & "..."  as NEW FROM 表

這樣行嗎

有些控件支持內(nèi)容自動(dòng)省略的功能

ynjxw

是要每一段都省略一些。而不是整體省略。

咱家是貓

在Roych代碼的基礎(chǔ)上幫你改造下:
在標(biāo)準(zhǔn)模塊中:
Function TrimString(str As String) As String
   
    Dim strArray() As String
    Dim strTemp As String
    Dim i As Integer
   
    strArray = Split(str, vbCrLf)
    For i = 0 To UBound(strArray)
        strTemp = strArray(i)
        If Len(strTemp) > 23 Then strTemp = Left(strTemp, 20) & "..."
        TrimString = TrimString & strTemp & vbCrLf
    Next i
   
End Function

在查詢或窗體中引用:
TrimString([字段名])

ynjxw

多謝roych 版主，這個(gè)代碼怎么用在查詢中呢。還要麻煩roych給予幫助一下。

ynjxw

正是要這個(gè)效果呀，多謝多謝roych，多謝貓哥！{:soso_e145:}{:soso_e146:}

ynjxw

跪求�。�

roych

是不是這樣��？

1. 
   
2. Sub test()
   
3. Dim rst As New ADODB.Recordset
   
4. Dim tt As String
   
5. Dim xx
   
6. rst.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. tt = rst(1)
   
8. rst.Close
   
9. xx = Split(tt, vbCrLf)
   
10. For i = 0 To UBound(xx)
    
11. Debug.Print Left(xx(i), 22) & "…"
    
12. Next
    
13. End Sub
    

復(fù)制代碼