Help: как поставит Enter в строку.

[dimalib]

Привет. Общем проблема в том что никак не могу вставит Enter между строками. Значит беру две строки из базы данных. И делаю из них один. И показываю в textbox-е

Код: Выделить всё

For x = 0 To r.RecordCount
Do Until r.EOF
If Not IsNull(r.Fields("поле")) Then
s = r![поле] & " " & [b]Asc(13)[/b] & " " & s
Else   
    End If

r.MoveNext
Loop
Next x
textBox.Text = s       


все нормально вот толка Enter между ними не вставляется. Может я что та упустил?

[Rainbow]

Во-первых, есть константа vbCrLF
То есть чтобы соединить 2 строки через перевод строки пишешь:
s = str1 & vbCrLf & str2

А во-вторых, проверь, что свойство у текстбокса стоит muliline = true

[dimalib]

Спасибо. Все прекрасно работает.
но почему та когда я пишу

Код: Выделить всё

s = r![chb] & vbCrLf & asc(13) & s       


между ними рисуется 49.

[alibek]

Да блин... Потому что ASCII-код символа "1" как раз 49. Нафига его лепить туде? Asc() возвращает код символа, сам символ получается Chr$(), но у тебя же используется vbCrLf.