Андрей8989,

см. Thisform.MousePointer

asdorАндрей8989,
Вы хоть разберитесь с текстом вашей формы. Там же есть это.
И Кристинка, тоже пусть разберется)))А Вы уверены, что это два человека?
Кристинка89IF EMPTY(ALLTRIM(curs1.smocod))
SELECT curs1
REPLACE smocod WITH smo.smocod
UPDATE pacient SET pacient.smocod=curs1.smocod from curs1 WHERE pacient.polis=curs1.polis
thisform.grid1.refresh()
ELSE
IF !EMPTY(ALLTRIM(curs1.smocod))
IF MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)=6 && YES (ДА)
SELECT curs1
REPLACE smocod WITH smo.smocod
UPDATE pacient SET pacient.smocod=curs1.smocod from curs1 WHERE pacient.polis=curs1.polis
thisform.grid1.refresh()
ELSE
MESSAGEBOX=2 && YES (ДА)
ENDIF
ENDIF
ENDIF Андрей8989IF thisform.check1.Value=0
SET FILTER TO ASCAN(arrSerPol,ALLTRIM(ser)+ALLTRIM(polis))>0
ELSE
IF thisform.check1.Value=1
SET FILTER TO ASCAN(arrSerPol,ALLTRIM(ser)+ALLTRIM(polis))>0 AND EMPTY(ALLTRIM(smocod))
ENDIF
ENDIFОчень похоже, правда ведь?

К тому же вспомним первый пост Кристинка89 :
Кристинка89Всем привет! у меня есть таблица в которой хранятся записи о сотрудниках магазина основные поля в этой таблице "номер". Есть вторая таблица в которой хранятся записи о покупателях там основные поля поле1, поле2. Есть третья таблица в котором хранятся данные о товарах, предполагается что каждый сотрудник продает определенный товар. в третьей таблице основное поля поле1,поле2,номер. задача такая сотрудник вводит пароль и входит в программу при этом надо в грид вывести данные о покупателях, которых обслуживал этот сотрудник. логика такая: сотрудник вводит пароль и входит в программу при этом сначала из таблицы товары выбираются все записи у которых поле товар.номер=сотрудник.номер, затем выбираются покупатели у которых поля покупатель.поле1 и покупатель.поле2=товар.поле1 и товар.поле2 и эти записи вывести в грид. помогите реализовать все это на фокспро. я не понимаю как сделать такой поиск. очень нужноФиг с ней, с торговлей, в поликлинике добавили место второго программиста!!!
P.S. Если бы Андрей8989 следовал советам, то уже прочитал минимум две книги и не задавал бы таких вопросов.
Как-то даже и помогать желание пропало.

Андрей8989,

Андрей8989зачем же сразу нападать.На вас никто не нападает, просто смешно стало...
Станислав С...кий Судя по коду, в университете учили поверхностно не только Фоксу, но и вообще программированию.
+1
И элементарной логике тоже.
Станислав С...кий Отладчиками (дебаггерами) Вас учили пользоваться? Вот запустите форму под отладчиком и смотрите почему Ваша функция не вызывается... Или отрабатывает не так, как нужно.Не настаиваю, но очень простой способ вызвать Debud в том месте программы, в котором вам нужно: SET STEP ON
Еще есть SUSPEND, но это дело вкуса...

Андрей8989Jonny540, А что смешного? Можно подумать вы все знаете чтобы над другими смеятьсяСмешно, что вы так "шифруетесь". Это не тот форум, где нужно кого-то обманывать.
Сейчас вроде разобрались, уже не смешно.

Андрей8989,

Кстати, вам же дали очень ценный совет 13168201 . От себя добавлю: структуру таблиц желательно немного переделать.