Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> КАК в MSFlexGrid ВРЕМЕННО убрать строку с таблицы, а потом вернуть? КАК в MSFlexGrid ВРЕМЕННО убрать строку  
:(
    Опции темы
malge
Дата 2.6.2010, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 30.5.2010

Репутация: нет
Всего: нет



КАК в MSFlexGrid ВРЕМЕННО убрать строку с таблицы, а потом вернуть?
Пробовал изменять высоту строки получается, но долго и мутэрно.
Кто-нить помогите с кодом?

Код

Private Sub kod_Change()
Dim rt, ry, ru, ri, ro, tyu, tyu2
ry = kod.Text
ro = MSFlexGrid.Rows - 1
For rt = 1 To ro
ru = MSFlexGrid.TextArray(2 + (rt * 11))   ' возвращаю содержание нужной ячейки
If InStr(ru, ry) <> 0 Then                          ' Условие отбора
MSFlexGrid.TopRow = rt                            ' выделил нужную ячейку
tyu = MSFlexGrid.RowIsVisible(rt) = False ' Пытаюсь убрать строку с экрана, не получается

Else                                                              'Дальше код для возврата убранной временно строки.
MSFlexGrid.TopRow = rt
tyu2 = MSFlexGrid.RowIsVisible(rt) = False
'MSFlexGrid.Visible = False
'MSFlexGrid.RowIsVisible (2)
End If
Next
MSFlexGrid.TopRow = 1
End Sub




Мне не надо удалять строк, мне надо её ВРЕМЕННО скрыть, убрать.
PM MAIL   Вверх
malge
Дата 7.6.2010, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 30.5.2010

Репутация: нет
Всего: нет



Никто так и не поможет. Мне по сути надо сделать фильтр в таблице по определенному значению.
PM MAIL   Вверх
Akina
Дата 8.6.2010, 08:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



А почему тебе должны помогать делать что-то через одно место?
Надо фильтровать? ну и фильтруй. Просто фильтровать надо данные, а не их отображение на экране.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
malge
Дата 8.6.2010, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 30.5.2010

Репутация: нет
Всего: нет



Просто данные по 9000-10000 строк, и их фильтровать хоть в файле, хоть в таблице пипец как долго. 

Это сообщение отредактировал(а) Akina - 1.7.2010, 07:52
PM MAIL   Вверх
Akina
Дата 8.6.2010, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(malge @  8.6.2010,  17:50 Найти цитируемый пост)
данные по 9000-10000 строк, и их фильтровать хоть в файле, хоть в таблице пипец как долго. 

Какой файл? какая таблица? 
Так. Рассказывай, откуда и как именно берутся данные и как они попадают в грид.

PS. У меня в БД миллионы строк, и сервер отфильтровывает нужные мне две сотни за миллисекунды.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
neic
Дата 11.6.2010, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7



Akina
Смею предположить, что все данные хранятся в тхт файлах.
PM MAIL WWW ICQ Skype   Вверх
malge
Дата 12.6.2010, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 30.5.2010

Репутация: нет
Всего: нет



Да, к сожалению последний раз программировал 6 лет назад.А сейчас врубаюсь в тему заново. Поэтому да .txt

Есть иные варианты, лучшие?

Это сообщение отредактировал(а) Akina - 1.7.2010, 07:51
PM MAIL   Вверх
neic
Дата 13.6.2010, 01:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7



malge
ну просто хорошо бы их в БД хранить в какой-нибудь.

Удалить:
Код

Public mat(99,99) as string
....
For i = 1 to msflexgrid1.rows-1
      If msflexgrid1.textmatrix(1,1) = "1" then
               k = k + 1
               mat(k,1) = msflexgrid1.textmatrix(1,1)
               mat(k,2) = msflexgrid1.textmatrix(1,2)
               Me.MSFlexGrid1.RemoveItem (i-1)
      end if
Next


Вставить
Код

For i = 1 to k
         msflexgrid1.rows = msflexgrid1.rows + 1
         msflexgrid1.textmatrix(msflexgrid1.rows-1,1) = mat(i,1)
         msflexgrid1.textmatrix(msflexgrid1.rows-1,2) = mat(i,2)
Next

Вот как-то так
PM MAIL WWW ICQ Skype   Вверх
malge
Дата 30.6.2010, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 30.5.2010

Репутация: нет
Всего: нет



Подскажи как с БД работать и в каком формате?

Это сообщение отредактировал(а) Akina - 1.7.2010, 07:51
PM MAIL   Вверх
Dexx
Дата 30.6.2010, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7



храни данные в например в mdb, а потом используй SQL.  
или нужные sql запросы можешь сделать прям в access, попробовать как что, сохранить.
А потом вызвать их из vb. 
Другой вопрос в каком виде у тебя данные, и как  проще их импортировать в туже mdb базу.
а вообще судб всяких много используй та которая тебе удобней. в любом случае это удобней чем просто текстовый файл.


--------------------

PM   Вверх
malge
Дата 1.7.2010, 00:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 30.5.2010

Репутация: нет
Всего: нет



Проблема иная, не на всех машинах стоит офис,  без него с MDB проблемы наверное будут. Не хочу привязку к офису.

Ещё нюанс. Мне важно сделать быструю прогу, для того и спрашиваю про БД, сейчас же загрузка 10 000 строк с 10 колонками и с одной колонкой фоток занимает от 25 сек, на маломощном нетбуке жены до 1 минуты. Ужасно долго, а на менее мощных машинах тупо может все зависнуть.

Есть аналог на дельфи, только в ехе , он летает просто.

Простая загрузка данных в грид без фоток примерно 8-9 секунд,  на аналоге Дельфи 2-3 сек, при этом с фотками. А у меня с фотками 25 сек. Комп у меня мощный, я видеомонтажом балуюсь.

Совету буду благодарен

Это сообщение отредактировал(а) Akina - 1.7.2010, 07:50
PM MAIL   Вверх
Akina
Дата 1.7.2010, 07:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454




M
Akina
1) Не кричите.
2) Не используйте оверквотинг.
3) Не делайте необоснованных заявлений.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0643 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.