люди такая ситуация.. у меня в грид в один из столбцов выводятся значения из другой таблицы т.е. есть поле smocod и когда выбираешь это поле появляются оба значения и выбираешь нужный.. явно нигде комбобокс не связан с грид.. так вот все работает.. но если я выберу значение и нажму кнопку обновить то изменения сохраняются но потом в поле smocod не получается выбирать значения так. может кто знает как исправить

IgorNG, вот скрин при нажатии на кнопку обновить больше не возможно так выбирать..

вот код кнопки "обновить"
авторUPDATE pacient SET pacient.smocod=curs1.smocod from curs1 WHERE pacient.polis=curs1.polis

SELECT * DISTINCT FROM obsled o WHERE !EMPTY(o.polis) AND BETWEEN(o.dat_obs,startDate,endDate) AND INLIST(o.pri_zak,0,2) AND o.nom_reg=vnom_reg INTO CURSOR tmpObsled
IF thisform.check1.value=0
SELECT distinct pacient.ser,pacient.polis,pacient.fam,pacient.im,pacient.ot,pacient.pol,pacient.dat_rojd,pacient.smocod,pacient.nom_reg, tmpobsled.ser as ser1, tmpobsled.polis as polis1 FROM pacient, tmpobsled WHERE pacient.ser=tmpobsled.ser AND pacient.polis=tmpobsled.polis ORDER BY fam INTO CURSOR curs1 READWRITE
ELSE
IF thisform.check1.value=1
SELECT distinct pacient.ser,pacient.polis,pacient.fam,pacient.im,pacient.ot,pacient.pol,pacient.dat_rojd,pacient.smocod,pacient.nom_reg, tmpobsled.ser as ser1, tmpobsled.polis as polis1 FROM pacient, tmpobsled WHERE pacient.ser=tmpobsled.ser AND pacient.polis=tmpobsled.polis AND EMPTY(pacient.smocod) ORDER BY fam INTO CURSOR curs1 READWRITE
ENDIF
ENDIF

GO TOP
thisform.grid2.RecordSource='tmpObsled'
thisform.grid2.Column1.ControlSource='tmpObsled.n_tal'
thisform.grid2.Column2.ControlSource='tmpObsled.dat_obs'
thisform.grid2.Column3.ControlSource='tmpObsled.nam'
thisform.grid2.Column4.ControlSource='tmpObsled.n_cab'
thisform.grid2.Column5.ControlSource='tmpObsled.n_ch'
thisform.grid2.Column6.ControlSource='tmpObsled.n_min'
thisform.grid2.Column7.ControlSource='tmpObsled.pri_zak'
thisform.grid2.Column1.header1.Caption='Ном. тал.'
thisform.grid2.Column2.header1.Caption='Дат. обсл.'
thisform.grid2.Column3.header1.Caption='Наименование методики'
thisform.grid2.Column4.header1.Caption='Ном. каб.'
thisform.grid2.Column5.header1.Caption='Время'
thisform.grid2.Column6.header1.Caption=' обследования'
thisform.grid2.Column7.header1.Caption='Приказ. закр.'
thisform.grid2.Column1.header1.FontBold= .T.
thisform.grid2.Column2.header1.FontBold= .T.
thisform.grid2.Column3.header1.FontBold= .T.
thisform.grid2.Column4.header1.FontBold= .T.
thisform.grid2.Column5.header1.FontBold= .T.
thisform.grid2.Column6.header1.FontBold= .T.
thisform.grid2.Column7.header1.FontBold= .T.
thisform.grid2.Column5.header1.Alignment=1
thisform.grid2.Column6.header1.Alignment=0
thisform.grid2.Column1.Width=75
thisform.grid2.Column2.Width=75
thisform.grid2.Column3.Width=262
thisform.grid2.Column4.Width=75
thisform.grid2.Column5.Width=75
thisform.grid2.Column6.Width=102
thisform.grid2.Column7.Width=75

thisform.grid1.Refresh
thisform.grid1.columncount=9
thisform.grid1.RecordSource='curs1'
thisform.grid1.Column1.ControlSource='curs1.ser'
thisform.grid1.Column2.ControlSource='curs1.polis'
thisform.grid1.Column3.ControlSource='curs1.fam'
thisform.grid1.Column4.ControlSource='curs1.im'
thisform.grid1.Column5.ControlSource='curs1.ot'
thisform.grid1.Column6.ControlSource='curs1.pol'
thisform.grid1.Column7.ControlSource='curs1.dat_rojd'
thisform.grid1.Column8.ControlSource='curs1.smocod'
thisform.grid1.Column9.ControlSource='curs1.nom_reg'
thisform.grid1.Column1.header1.Caption='Серия'
thisform.grid1.Column2.header1.Caption='Полис'
thisform.grid1.Column3.header1.Caption='Фамилия'
thisform.grid1.Column4.header1.Caption='Имя'
thisform.grid1.Column5.header1.Caption='Отчество'
thisform.grid1.Column6.header1.Caption='Пол'
thisform.grid1.Column7.header1.Caption='Дат.рожд'
thisform.grid1.Column8.header1.Caption='Код СМО'
thisform.grid1.Column9.header1.Caption='Ном. рег.'
thisform.grid1.Column1.Width=42
thisform.grid1.Column2.Width=69
thisform.grid1.Column3.Width=135
thisform.grid1.Column4.Width=141
thisform.grid1.Column5.Width=116
thisform.grid1.Column6.Width=29
thisform.grid1.Column7.Width=67
thisform.grid1.Column8.Width=83
thisform.grid1.Column9.Width=58

SELECT tmpObsled
SET FILTER TO tmpObsled.ser=curs1.ser AND tmpObsled.polis=curs1.polis AND BETWEEN(dat_obs,startDate,endDate) AND nom_reg=vnom_reg AND INLIST(pri_zak,0,2)
thisform.grid2.Refresh

IgorNG, а где это можно смотреть? в свойствах нету ничего что связано с комбобокс.. и на форме как я вижу нету комбобокс

IgorNG, ааа есть вижу, а как его привязать теперь в курсору..

IgorNG, привязываю вот так, но говорит синтаксическая ошибка
авторthisform.grid1.column8.combo3.RowSource=smo.smocod,nam_smok
когда нажимаю обновить пишет combo3 не найден. Может я не так привязываю?

asdor, если не ставить distinct то одного пациента она по несколько раз выводит

IgorNG, я только начинаю изучать fox вернее до этого проходили в универе поверхностно а сейчас нужно заново учить.. времени особо нет учить все свойства поэтому прошу помощи

IgorNG, пишу так., если неправильно просьба большая поправьте код

авторthisform.grid1.column8.CurrentControl=combo3
thisform.grid1.column8.combo3.RowSource='smo.smocod,nam_smok'

asdor, почему неверна. вы все говорите это неверно то неверно, а почему неверно? логически все правильно как я вижу.
сначала вначале программы из таблицы obsled в курсор tmpobsled выбираются все записи попадающие в интервал указанный вначале программы. затем при вводе пароля из таб personal в vnom_reg записывается значение поля nom_reg это пароль. потом из таблицы pacient в грид выводятся через курсор записи у которых поля ser,polis равны полям из курсора tmpobsled. а в нижний грид выводятся те обследования которые проходит тот или иной пациент во этот промежуток времени

asdor, во первых эту программу делал не, а сотруддник который до меня работал, во вторых в поле КодСмо выводятся два возможных значения из таблицы smo. чтобы пользователь мог выбрать либо первое либо второе

IgorNG,

asdor, нет, в гридах все нормально отображается. хотя если немного зависнет, пустые бывают потом выводится все равно то что надо. с комбо единственная ошибка и все

asdor, вот проект.. на форме form1 есть кнопка обновить при нажатии на него я вылелил в звездочках код который мне тут подсказали. комбобокс есть в гриде.

asdor, чему вы не верите? таблицы слишком много весят не получается сюда залить.

asdor, вот все таблицы из проекта

asdor, обновление заработало написал такой код при нажатии на кнопку обновить
авторthisform.grid1.column8.combo3.RowSourceType = 6
thisform.grid1.column8.combo3.RowSource='smo.smocod,nam_smok'
thisform.grid1.Column8.ControlSource='curs1.smocod'


и такой код в методе interactivechange у комбобокс3
авторSELECT curs1
REPLACE smocod WITH smo.smocod
thisform.grid1.refresh()

Все работает. Но когда галочку ставишь "показать с не введенным кодом смо", то в комбо3 не получалось опять выбирать коды смо. поэтому написал в методе interactivechange тот же код что и при нажатии на кнопку обновить и выдает ошибку Алиас комбо3 не найден. Как исправить подскажите пожалуйста.

asdor, а параметры это пароль пользователя введите например пароль "капус"

asdor, тогда другой пароль из таблицы personal я вам урезанную отправил поэтому так пишет

asdor, через второй курсор сделал работает все как нужно, но это не очень красиво :) если есть другой способ подскажите как исправить мой код

asdor, да задача такова. суть проги объясняю пользователь вводит пароль этот пароль сохраняется в переменной. затем из таблицы обслед выбираются все обследования которые входят в заранее заданный в начале проги интервал времени(по умолчанию текущий месяц) и у которых поле nom_reg=введенному пользователем паролю. в записываются в курсор tmpobsled. т.е. если эти поля совпадают, то этот пользователь делает пациентам это обследование. после всего этого в курсор curs1 выбираются пициенты у которых поля Ser и polis равны полям Ser и polis у курсора tmpobsled и выводятся в грид1. а в грид2 из tmpobsled обследования у которых поля ser и polis равны полям Ser и polis из curs1 и входящие в интервал указанный в начале программы.

А через второй курсор сделал так: вначале программы в curs1 вывожу пациентов у которых указанные поля равны, а в curs2 такие же и у которых поле smocod пустое, а при переключении галочки на форме просто вывожу в грид согласно условию. некрасиво наверное сделано, но как получается для человека который не очень пока еще знает фокс так и сделал

asdor, спасибо конечно, но мне поручили эту прогу оптимизировать так как она изначально работала через Set filter to и жутко тормозила когда читала данные с сервера. поэтому и сделал через курсоры выборку.