Как выбрать последный пустую строку в LISTBOX ? - Microsoft Office Excel

Aqil_f · 06.09.2010, 09:43

Нужно записать данные в последнюю пустую строку в LISTBOX:
Номер последный пустую строку в LISTBOX могу найти,

Код:

     irow = FORM1.LISTBOX1.ListCount + 1
     MsgBox (FORM1.LISTBOX1.ListCount + 1)

но не могу выбрать именно этот запись чтобы добавить новых данных.
Как выбрать последный пустую строку в LISTBOX ?

nilem · 06.09.2010, 09:51

Так подойдет?

FORM1.ListBox1.AddItem "Новая запись на последней строке"

Aqil_f · 06.09.2010, 10:31

Спасибо, nilem, это я незнал.
Но, в Listbox выбран какой-то запись. После этой команду надо выбрать именно пустой запись, чтобы добавить туда. Вот, я этого не могу делать.

nilem · 06.09.2010, 11:20

В Listbox выбрана какая-то запись. Ищем пустую строку, находящуюся после выбранной записи, и пишем туда что-нибудь. Если это нужно, то так:

Код:

Dim iRow As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
For iRow = ListBox1.ListIndex To ListBox1.ListCount - 1 'список начинается с нуля
    If ListBox1.List(iRow) = "" Then
        ListBox1.List(iRow) = "Что-нибудь"
        Exit For
    End If
Next iRow

Aqil_f · 06.09.2010, 11:30

Цитата:

Сообщение от nilem

В Listbox выбрана какая-то запись. Ищем пустую строку, находящуюся после выбранной записи, и пишем туда что-нибудь. Если это нужно, то так:

Все правильно, только не "ищем пустую строку, находящуюся после выбранной записи", а ищем последный запись и добавляем данные после последный запись.

nilem · 06.09.2010, 11:39

Ну, тогда первый вариант. Это как раз и есть "ищем последный запись и добавляем данные после последный запись":

Код:

ListBox1.AddItem "данные после последный запись"

По-другому не знаю.

VictorM · 06.09.2010, 11:58

Цитата:

По-другому не знаю.

А по другому и не нужно.
Как добавить данные в начало, середину или конец ComboBox, ListBox ?

Aqil_f · 06.09.2010, 13:42

VictorM, спасибо, читаю.

Nilem,
Мне надо чтобы после выпольнение эту команду выбрать в listbox-e именно пустой запись, который сейчас добавлен. Вот, я этого не могу делать.
Вообще, как в Listbox данные обновляются? (Потому что, у меня добавленные данные на listbox-e видно только после заного открытые XLS файла)

Aqil_f · 06.09.2010, 15:29

Все-таки я не могу найти как обновляется Listbox. Помогите пожалуйста.

Aqil_f · 06.09.2010, 15:40

Над формой есть листбокс и несколько текстбоксы. Данные меняется через текстбоксы. В самом листе измененные данные сразу видно, но в листбоксе не видно. Измененные данные в листбоксе видно бывает только после закрытые и заного открытое XLS файла. Как листбокс обновить чтобы данные сразу видно было?

06.09.2010, 09:43	#1
Aqil_f Форумчанин Регистрация: 12.05.2009 Сообщений: 273	Как выбрать последный пустую строку в LISTBOX ? Нужно записать данные в последнюю пустую строку в LISTBOX: Номер последный пустую строку в LISTBOX могу найти, Код: `irow = FORM1.LISTBOX1.ListCount + 1 MsgBox (FORM1.LISTBOX1.ListCount + 1)` но не могу выбрать именно этот запись чтобы добавить новых данных. Как выбрать последный пустую строку в LISTBOX ?

06.09.2010, 11:20	#4
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	В Listbox выбрана какая-то запись. Ищем пустую строку, находящуюся после выбранной записи, и пишем туда что-нибудь. Если это нужно, то так: Код: `Dim iRow As Integer If ListBox1.ListIndex = -1 Then Exit Sub For iRow = ListBox1.ListIndex To ListBox1.ListCount - 1 'список начинается с нуля If ListBox1.List(iRow) = "" Then ListBox1.List(iRow) = "Что-нибудь" Exit For End If Next iRow`

06.09.2010, 11:39	#6
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	Ну, тогда первый вариант. Это как раз и есть "ищем последный запись и добавляем данные после последный запись": Код: `ListBox1.AddItem "данные после последный запись"` По-другому не знаю.

06.09.2010, 13:42	#8
Aqil_f Форумчанин Регистрация: 12.05.2009 Сообщений: 273	VictorM, спасибо, читаю. Nilem, Мне надо чтобы после выпольнение эту команду выбрать в listbox-e именно пустой запись, который сейчас добавлен. Вот, я этого не могу делать. Вообще, как в Listbox данные обновляются? (Потому что, у меня добавленные данные на listbox-e видно только после заного открытые XLS файла) Последний раз редактировалось Aqil_f; 06.09.2010 в 13:48.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удалить пустую строку созданную StringList-ом	Shouldercannon	Общие вопросы Delphi	18	14.12.2011 11:52
Преобразование даты в пустую строку	insense	БД в Delphi	6	02.07.2010 09:13
Удалить пустую строку из ListView	Shouldercannon	Общие вопросы Delphi	2	28.04.2010 16:02
Как при нажатии на строку в Listbox передавать нажатую строку в переменную	Михаил Юрьевич	Общие вопросы Delphi	5	16.03.2009 12:59
если поле Patr пусто или null то пустую строку возвращает	azat	БД в Delphi	5	01.02.2008 13:05

06.09.2010, 09:51	#2
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	Так подойдет? FORM1.ListBox1.AddItem "Новая запись на последней строке"

06.09.2010, 10:31	#3
Aqil_f Форумчанин Регистрация: 12.05.2009 Сообщений: 273	Спасибо, nilem, это я незнал. Но, в Listbox выбран какой-то запись. После этой команду надо выбрать именно пустой запись, чтобы добавить туда. Вот, я этого не могу делать.

06.09.2010, 15:29	#9
Aqil_f Форумчанин Регистрация: 12.05.2009 Сообщений: 273	Все-таки я не могу найти как обновляется Listbox. Помогите пожалуйста.

06.09.2010, 15:40	#10
Aqil_f Форумчанин Регистрация: 12.05.2009 Сообщений: 273	Над формой есть листбокс и несколько текстбоксы. Данные меняется через текстбоксы. В самом листе измененные данные сразу видно, но в листбоксе не видно. Измененные данные в листбоксе видно бывает только после закрытые и заного открытое XLS файла. Как листбокс обновить чтобы данные сразу видно было?