В InteractiveChange ComboBoxа используй SET FILTER TO по значению из поля таблицы.

МашкоБ.В. StasLВ InteractiveChange ComboBoxа используй SET FILTER TO по значению из поля таблицы.
А можно поподробнее насчет этого, а то я вроде по форуму полазил но так и не смог понять толком как именно задаётся условие фильтрации.
Я только начал изучать VFP.
Можно.
Сам принцип этого я прочитал в какой-то из статей Владимира Максимова.
Все работает отлично.
В Loade Formы пишешь

В Initе Combo
Создаю в Formе метод Filter_Data(). В нем
И наконец в InteractiveChange ComboBoxа
И все.

МашкоБ.В.
Grid формируется через локальное представление
vie ,которое формируется из 2-ух таблиц Disp3 и Disp1. Combo тоже формируется по полю vie.nomer. Получается что select здесь нельзя использовать. Так ?

Источником данных для Combo у тебя должен быть массив из 2 полей, в первом то что-ты хочешь отобразить в на экране в самом Combo, второе уникальное поле (обычно это ID), которое ты и будешь получать как значение (Value) Combo. А уже каким образом ты его получишь, из своего vie или из Tabl, это твое сугубо личное дело .
Так же дело обстоит и с источником данных для грида, главное что бы в нем было поле для "связи" с Соmbo. В твоем случае это vie.nomer.
В строке
Ты устанавливаешь фильтр на отображение значений в Gride.
Да, небольшое уточнение. Перед командой SET FILTER TO перейди в область источника данных для Grida.

Hi Igor Korolyov

Igor Korolyov
Hi StasL!

> SELECT * FROM Tab1 t INTO DBF tab_tmp && Источник для Grida

Зачем выбирать ВСЕ данные в новую таблицу?


Естественно ВСЕ данные собирать ненужно. * -- для примера. Я думаю МашкоБ
сам об этом догадался.

Igor Korolyov
> SET FILTER TO tab_tmp.ID_Tab1 = VAL(ThisForm.Combo.Value)

Не будет работать. Внутри условия фильтра не катят ThisForm... Если
состряпать условие как строку - ещё куда ни шло, а напрямую к ThisForm... -
не пойдёт.

Ну у меня же работает (VFP8). Я привел код рабочей программы.

Igor Korolyov
И вообще пора, давно пора уже отказаться от SET FILTER

Мне кажется что все зависит от конкретной задачи. У меня небольшой объем данных как в Grid так и в Сombo. И мне достаточно SET FILTER.
Поделитесь своим опытом, может ваш вариант больше подойдет автору.

Ну давай разберемся во всем по-порядку.
Что является источником для Combo? Я подразумеваю что у тебя
Combo.RowSource = "твоя vie". SET FILTER действует на всю область vie, поэтому у тебя и остается только выбранная строка. Так?

МашкоБ.В.Спасибо всем за помощь.
Но я полазив по форуму и кое чего почитав сделал так
В InteractiveChange ComboBoxа я прописал
PUBLIC lsNomer

SELECT vie
lsNomer=This.Value
SET FILTER TO vie.nomer=Alltrim(LOWER(lsNomer))
GO TOP

Объявление PUBLIC переменных в Formaх не есть хорошо , а тем более в InteractiveChange. Так как эта переменная видна всей твоей программе, а тебе она нужна только в InteractiveChange. Если уж ты так хочешь ее использовать объяви ее LOCAL.
Хотя я не могу понять зачем она вообще нужна. Ну ладно, у каждого свой стиль программирования.

МашкоБ.В.Да не совсем в Combo.RowSource="vie.nomer" тоесть поле из vie
SET FILTER действует на всю область vie , поэтому у тебя и остается только выбранная строка. А чем тебе не полходит массив?

МашкоБ.В.
А массив не использую т.к. по своей тупости не понимаю полностью твой код
Объясни если не сложно
"Вы не любите кошек? Вы просто не умеете их готовить!!!"
Так бы сразу и сказал. Объясняю.
МашкоБ.В.
Например SELECT DISTINCT t.Name, t.ID_Tab1 зачем t.Name и t.ID_Tab1 это просто переменные и зачем передними t.?t -- это псевдоним таблицы Tab1 используемый в SELECT
t.Name -- это ничто иное как Tab1.Name, то есть поле Name из таблицы Tab1
Его желательно использовать для явного указания SELECTу какое поле ты хочешь вывести в запросе, особенно когда ты связываешь 2 и более таблиц и они имеют одинаковые названия полей.
У меня реальный запрос много сложнее поэтому я забыл это удалить, впрочем как и DISTINCT.

МашкоБ.В.
FROM Tab1 t это то откуда мы берём данные ? в моем случае это
vie?Да

МашкоБ.В.
INTO ARRAY ThisForm.аCombo то куда мы записываем наш массив Да

МашкоБ.В.
? если у меня Combo.name="Combo1" то я так и должен записать INTO ARRAY ThisForm.Combo1Нет

ThisForm.аCombo -- это свойство формы представляющее из себя массив. Ты его создаешь коммандой

Сначала опишу что у меня, возможно у тебя такая же ситуация, раз ты делаешь vie из 2 таблиц (почему из 2 ты не написал.) А ты уже по аналогии сооруди себе сам.
У меня есть таблица-справочник, ну допустим Banks. В ней два поля ID и Name.
ID - уникальный идентификатор записи.
Name - содержит названия банков.

После выполнения этого кода я "имею" (хорошее слово) свойство-массив ФОРМЫ (которое "живет" пока "живет" форма), заполненное значениями из таблицы-справочника.
В твоем случае вместо таблицы Banks ты подставляешь свой источник информации vie.

Далее в Inite Combo

Теперь о Gride.
У меня есть вторая таблица, ну допустим Оtdelenie. В ней три поля ID, ID_Banks и Name.
ID - уникальный идентификатор записи.
ID_Banks - уникальный идентификатор записи из таблицы Banks.
Name - содержит названия отделений.
Т. е. эти две таблицы связаны один-ко-многим.
Вторая таблица является источником для грида. У тебя это vie.
Т. е. SELECT FROM Tab1 t INTO DBF tab_tmp тебе делать не нужно.

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

МашкоБ.В.
что указывает 1 в ('aCombo1(1)')
Как я уже говорил, коммандой
ты создаешь свойство- массив , но пустой массив ты создать не можешь.
1 указывает на то, что в массиве есть один элемент. Т. е. ты указываешь размерность массива.
(1, 1) - один элемент двухмерного массива.

МашкоБ.В.
и что делает цикл
IF _TALLY = 0
ThisForm.aCombo1[1] = '\'
ENDIF Во первых это не цикл, а ветвление
_TALLY -- это системная переменная памяти. Содержит числовое значение, которое выводит количество записей, обработанных самой последней выполнявшейся табличной командой.
В твоем случае это SELECT. Т. e. если SELECT не выдает ни одной записи _TALLY = 0.
Так как твой единственный элемент в массиве имеет значение по умолчанию .F., то ThisForm.aCombo1[1] = '\' , что бы в дальнейшем не получить ошибку несовпадения типов. А символ '\' в Combo отображаться не будет.
МашкоБ.В.
Поменяв всё под своё представление у меня выкидывается ошибка
'ACOMBO1' is not an array на код

.RowSourceType = 5 т.е. aCombo1 не воспринемается как массив.


Не подскажите в чем ошибка?

Посмотри через Debugger создается ли у тебя массив ACOMBO1. Может ты где-то код не в том методе прописал. Так сразу сказать не могу.

МашкоБ.В.
WITH This
.RowSourceType = 5
.RowSource = "ThisForm.aCombo1(1)"
.ColumnCount = 2
.ColumnLines = .F.
.ColumnWidths = LTRIM (STR (.Width - 46))
.BoundColumn = 2
.ListIndex = 1
ENDWITH

Неправильно. У тебя массив одномерный. Попробуй так.
Все остальное вроде бы правильно.

Ошибка то какая и на какой конкретно строке?

Property aCombo1 в форме существовать не должно! Удали его! Ты его создаешь "на лету" коммандой
И будет тебе счастье!