Теряются кавычки при дополнении листбокса

@effort · Регистрация: 17.06.2016

Author24 — интернет-сервис помощи студентам

Заполняю ЛистБокс2 по кликам в ЛистБокс1
В ЛистБокс1 встречаются наименования в кавычках, например "Имя1", Наименование "Имя2"
В ЛистБокс2 эти значения переносятся так
Имя1
Наименование "Имя2"

и дальше, при сверке, так как кавычки потеряны, считает, что "Имя1" не равно Имя1.
Что делать?
код таков (2 колонки в листбоксе, показана только одна)

Visual Basic

Private Sub ЛистБокс1_DblClick(Cancel As Integer)
Dim z As String
z = ЛистБокс1.Column(0, ЛистБокс1.ListIndex) & ";" & ЛистБокс1.Column(1, ЛистБокс1.ListIndex)
ЛистБокс2.AddItem z, 0
End Sub

mobile · 30.08.2016, 15:21

Кавычки в строке обозначают тип и не входят в само значение. Поэтому их надо насильно присваивать. Причем удваивать.
Считая второй столбец текстовым, запишем:
Private Sub ЛистБокс1_DblClick(Cancel As Integer)

Visual Basic

Dim z As String
z = ЛистБокс1.Column(0, ЛистБокс1.ListIndex) & ";""" & ЛистБокс1.Column(1, ЛистБокс1.ListIndex) & """"
ЛистБокс2.AddItem z, 0
End Sub

@effort · 30.08.2016, 16:22 **[ТС]**

Текстовый первый столбец, если перед и после него дополнять кавычки
так
""""
или так
chr (34)
он присваивает листбоксу пустое значение.

Добавлено через 1 минуту
строка кода

Visual Basic

1 2	z = """" & ЛистБокс1.Column(0, ЛистБокс1.ListIndex) &"""" & ";" & ЛистБокс1.Column(1, ЛистБокс1.ListIndex) ЛистБокс2.AddItem z, 0

Добавлено через 1 минуту
Да, ЛистБокс1 берет значения из таблицы.

	30.08.2016, 16:22