ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / True DBGrid 8.0 и merge
13 сообщений из 13, страница 1 из 1
True DBGrid 8.0 и merge
    #34906222
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
есть 2 колонки в гриде, там такие значения:
Код: plaintext
1.
2.
3.
4.
фио         рост
Иванов      173
Петров      173
Сидоров     180

делаю у второй колонки свойство merge=restricted

в итоге в колонке рост 173 объединяется и выглядит как одна общая ячейка.

вопрос: когда я становлюсь на эту объед. ячейку, то в колонке фио выделяется Иванов, пишу в коде:

Код: plaintext
a=tdbgrid1.columns( 0 ).value

выдает Иванов. а мне надо, чтобы он выдавал все фамилии, у которых такой рост.

как это правильно сделать?
...
Рейтинг: 0 / 0
31.10.2007, 07:47
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906224
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
с True DBGrid не очень знаком, но возможно поможет срытая колонка без объеденения ячеек, а информацию о имени выводите по скрытой колонке
...
Рейтинг: 0 / 0
31.10.2007, 07:57
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906242
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
нет, этот вариант не подходит. нужно средствами грида. колонок только две может быть.
может, там есть что-то типа пробежать по всем записям колонки 1 исходя из объедин. ячейки в колонке 2, но я не знаю, как это правильно сделать.
...
Рейтинг: 0 / 0
31.10.2007, 08:18
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906402
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Ну конечно не выдаст список фамилий. Ведь .Columns(i) выдает значение ячейки а не набор данных. Пользуйтесь клонами рекордсета и не ищите тут легких путей.
...
Рейтинг: 0 / 0
31.10.2007, 09:41
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906481
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Да есть ведь какой-то способ, 100 %. ну должно же быть какое-то свойство.
я так понимаю, никто этим вопросом кроме меня не задавался?
...
Рейтинг: 0 / 0
31.10.2007, 10:09
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906528
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Да, есть ведь какой-то способ подоить козла, 100%, должен же быть какой-то орган.
я так понимаю, никто этим вопросом кроме меня не задавался?
...
Рейтинг: 0 / 0
31.10.2007, 10:23
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906562
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Если вы подключите TDBGrid к иерархическому рекордсету, то будет вам такое свойство.
Это свойство - поле типа adChapter, которое хранит объект - дочерний рекордсет для данной строки.
Не путайте множество данных с одним полем.
А то напишут повеселее шутки чем Antonary написал.
...
Рейтинг: 0 / 0
31.10.2007, 10:33
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906591
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
не, никакого иерарх. рекордсета у меня нет. тупо

select fio, rost from table1 - и это не меняется.

ну неужели никак нельзя прогнаться по ячейкам 1 колонки, если они относятся ко второй объединенной.
...
Рейтинг: 0 / 0
31.10.2007, 10:38
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906617
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Конечно можно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
dim rs as adodb.recordset
set rs= tdbgrid1.DataSource.Clone
rs.filter = "Рост = " & tdbgrid.columns( 1 ).value
dim s as string
do until rs.EOF
  s= s & rs( 0 ) & vbcrlf
  rs.MoveNext
looop
msgbox s
...
Рейтинг: 0 / 0
31.10.2007, 10:45
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906663
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
tdbgrid1.DataSource.Clone

эта строка не работает.
а можно без клона обойтись?
...
Рейтинг: 0 / 0
31.10.2007, 10:53
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906684
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Настенькаtdbgrid1.DataSource.Clone
эта строка не работает.
а можно без клона обойтись?Запишите set rs = rsGrid.Clone (рекордсет к которому привязан грид).
Без клона можно но будет очень плохо - курсор в гриде пробежит в соответсвии с перебором стро в цикле. Да еще и сработает фильтр.
А что турдного в клоне?! Трудно пару строк вбить?
...
Рейтинг: 0 / 0
31.10.2007, 10:58
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906917
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Черт, эта строка не работает, т.к. она объединенная и он не может найти правильный ответ

rs.filter = "Рост = " & tdbgrid.columns(1).value
...
Рейтинг: 0 / 0
31.10.2007, 11:39
| Ответить | Цитировать | Написать  
True DBGrid 8.0 и merge
    #34906999
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Ой, простите пожалуйста. все работает. спасибо вам огромное за идею. вопрос закрыт.
...
Рейтинг: 0 / 0
31.10.2007, 11:51
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / True DBGrid 8.0 и merge
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=213&tid=2163164]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 65ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 245ms
total:  426ms
созд. / загр.: 426ms
x
x
Закрыть


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