powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавление данных в Listbox , св-во Columncount которого =3
8 сообщений из 8, страница 1 из 1
Добавление данных в Listbox , св-во Columncount которого =3
    #34139573
harch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброе время суток,Господа. Подскажите пжлста как можно решить описанную проблему.Работа идет в vb 6.3. Данные для заполнения берутся из recordset.Можно ли добавлять записи по очереди в колонки одной строки или добавление ведется как то по другому. Добавить данные в listbox у которого columncount=1 получается без проблем.Заранее спасибо.
...
Рейтинг: 0 / 0
Добавление данных в Listbox , св-во Columncount которого =3
    #34139750
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_Load()
    Dim lstItem As ListItem
    Set lstItem = lstTemp.ListItems.Add(, , "1st row. Main column")
    lstItem.ListSubItems.Add , , "2nd col"
    lstItem.ListSubItems.Add , , "3rd col"
    Set lstItem = lstTemp.ListItems.Add(, , "2nd row. Main column")
    lstItem.ListSubItems.Add , , "2nd col"
    lstItem.ListSubItems.Add , , "3rd col"
    Set lstItem = Nothing
End Sub
Так сойдет? или вы имели про другое?
...
Рейтинг: 0 / 0
Добавление данных в Listbox , св-во Columncount которого =3
    #34140074
harch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
orunbek:
Ругается у меня на "Dim lstItem As ListItem". Якобы пользовательский тип не определен. Подозреваю что надо библиотеку подключить,но какую? или я ошибаюсь?Вообще работа на vb,встроенном в ms access.
...
Рейтинг: 0 / 0
Добавление данных в Listbox , св-во Columncount которого =3
    #34140141
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А насчет этого не знаю, вы как добавляете элемент управления ListView на форму в MSA?
В сети, на этом же сайте тоже был такой пост использование ListView, на hiprog.com, am.rusimport.ru есть примеры использования ListView в MSA
...
Рейтинг: 0 / 0
Добавление данных в Listbox , св-во Columncount которого =3
    #34140220
Listbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Думаю, что про контролы Access надо спрашивать на соответствующем форуме.
А при чем здесь Listview?
...
Рейтинг: 0 / 0
Добавление данных в Listbox , св-во Columncount которого =3
    #34140362
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
проверил в EXCEL2000 работает думаю в ACCESS так же
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Set vvv = Лист3.ListBox1
    vvv.Clear
    vvv.ColumnCount = reRecordSet.Fields.Count 
    Do Until reRecordSet.EOF
        vvv.AddItem reRecordSet.Fields( 0 )
        For x =  1  To reRecordSet.Fields.Count -  1 
            If reRecordSet.Fields(x) <> "" Then
                vvv.Column(x, vvv.ListCount -  1 ) = reRecordSet.Fields(x)
            End If
        Next
        reRecordSet.MoveNext
    Loop
...
Рейтинг: 0 / 0
Добавление данных в Listbox , св-во Columncount которого =3
    #34140782
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ListboxДумаю, что про контролы Access надо спрашивать на соответствующем форуме.
А при чем здесь Listview?
ноты попутал ;-) я имел виду даже не ListView, и не ListBox, а TreeView понедельник день тяжелый ;-)
...
Рейтинг: 0 / 0
Добавление данных в Listbox , св-во Columncount которого =3
    #34140935
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Правильно заданный вопрос = наполовину ответить.
А еще - получить ответ раньше чем через пять дней.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавление данных в Listbox , св-во Columncount которого =3
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]