Hi FM32YO aka KID!

Ты забыл, что грид "образовался" ещё ДО того как начал работать твой метод
SQL4Grid - при этом он полностью проинициализировался по тем правилам что
указал Владимир - т.е. поскольку в Load ты явно открыл таблицы (то что IN 0
усложняет немного понимание - но просто прими на веру, или проверь
"экспериментально", что в текущей рабочей области оказалась таблица ids -
поскольку она открывается первой а иных открытых таблиц нет, и явных команд
типа SELECT 55 тоже нету :) ), то грид в соответствии со своим
"нечеловеческим интеллектом" автоматически подхватил этот курсор как
источник. При этом основную роль как раз и сыграло то, что на этапе дизайна
для него свойство RecordSource было оставлено "пустым по умолчанию". Т.е.
уже ДО выполнения твоего кода произошло первое "присвоение" и теперь грид
привязан к курсору ids. В зависимости от значения ColumnCount уже на этом
этапе может также произойти инициализация колонок грида (если там -1 то
создастся столько колонок сколько полей в курсоре, иначе просто имеющиеся
колонки инициализируются первыми N полями "привязанного" курсора) - т.е. у
тебя колонки "привяжутся" к полям ids - помимо ControlSource также
происходит инициализация и Alignment - точнее его "скрытой" второй
половинки - т.к. значение по умолчанию для выравнивания это 3, это значит
что решающее значение имеет тип данных поля! А типы данных полей курсора ids
в этом отношении видимо оказались "несоответствующими" тому какие типы у
полей твоего результатного курсора. НО даже если у тебя было указано в
свойствах грида (на форме) ColumnCount=0 то это не будет играть решающего
значения, из-за порядка команд в твоей процедуре!
Теперь рассмотри что происходит при выполнении твоего кода - но "построчно"
1) Создаётся 9 колонок (если их ещё не было - иначе просто создаются
"дополнительные" или удаляются "лишние") - при этом мы помним что грид то
пока привязан к ids - и значит все создаваемые колонки автоматом
привязываются к полям ids!!!
2) И только потом ты реально привязал грид к тому курсору который тебе
необходим!
3) Устанавливая свойства колонок ты "в целом" победил результаты
авто-инициализации.

Теперь просто несколько моментов по поводу инициализации грида.
Я бы не отказывался от удобств предоставляемых дизайнером, и потому уже на
этапе разработки прописал и источник данных самого грида, и его колонок - а
так же детали настройки "вложенных" в колонки контролов. При этом нам надо
как-то обойти несколько печальных фактов:
1) В общем случае создавать источники данных для грида нужно вообще до
начала его инициализации - т.е. в Load формы или в DE! НО с учётом того что
для инициализации могут потребоваться данные переданные из точки вызова
(параметры переданные извне в форму), это не всегда возможно. Впрочем никто
не запрещает создать в Form.Load простой и пустой курсор-заглушку - т.е.
курсор с определённым именем и известной структурой - через банальный CREATE
CURSOR например, или через тот-же самый запрос, но не с реальными
параметрами, а с "всегда ложным" условием - это вполне удовлетворит грид.
Потом сделаешь перезапрос.
2) При пересоздании источника данных (в частности повторный SELECT в тот-же
курсор, PACK, просто ручное закрытие/открытие таблицы) грид разрушается -
это широко известно и способ решения проблемы так-же известен и весьма
несложен - я когда-то добавил свойство к классу грида, прописал Assign метод
на него, и теперь вся процедура "сохранить/восстановить грид" занимает 2
строки - сначала устанавливаем свойство в .T. - это обеспечивает
"безопасность" при пересоздании курсора - а потом снова в .F. - и грид готов
к работе.

Что касается "как нашёл" - тут тоже всё очень просто - единственное
замечание - OPEN DATABASE открывает базу "глобально" - т.е. она видна во
всех датасессиях - и потому в собственно форме я бы не советовал писать код
открытия базы - в форме достаточно указать SET DATABASE TO. Но и без этого
твой запрос, без проблем найдёт таблицу, даже если она находится в каталоге
не указанном в PATH и не являющемся текущим - при этом именно ссылка вида
имяБД!имяТаблицы обеспечивает должную точность при адресации.

Posted via ActualForum NNTP Server 1.3