ShunЗдравствуйте. У меня такая вот проблема. Вроде бы, составлен рабочий запрос, пи сохранении кода ошибок не выдаётся, но вот как только нажимаешь поиск на форме запрос не выполняется...
Дебаггер указывает на последнюю строку то есть "&sqltext"
Подскажите, в чём тут ошибка, и что нужно исправить?
Может в свойствах самой формы что-то не так?

Код запроса
PUBLIC k as Boolean, sqltext as String, sq as String
sq = "SELECT t_gitel.Фамилия, t_gitel.имя, t_gitel.отчество, t_gitel.дата_рожд,t_raion.район, t_ulica.улица, t_adress.номер_дома, t_adress.номер_кв, t_adress.телефон "
sq = sq + "FROM t_gitel INNER JOIN t_projivaet on t_projivaet.id_gitel = t_gitel.id_gitel "
sq = sq + "INNER JOIN t_adress on t_adress.id_adress = t_projivaet.id_adress INNER JOIN t_raion on t_raion.id_raion=t_adress.id_raion INNER JOIN t_ulica on t_ulica.id_ulica = t_adress.id_ulica "
sq = sq + "WHERE"
k = .F.
sqltext = sq
FOR i=1 TO 9
IF flag(i)
IF k
sqltext = sqltext + " and " + usl(i)
ELSE
sqltext = sqltext + usl(i)
k=.T.
ENDIF
ENDIF
ENDFOR
&sqltext
Насчет ошибки все просто - Фокс не может выполнить созданный программой запрос.
Я бы сделал следующее:
- вывел текст запроса на экран и визуально проверил его корректность
- сохранил текст запроса в переменную и попробовал бы его выполнить из командного окна Фокса
- если ошибка все-равно появляется, то переписал бы его "в старой форме", т.е использовал бы не join'ы, а простые "равенства" (where t_adress.id_adress = t_projivaet.id_adress and t_projivaet.id_gitel = t_gitel.id_gitel and ...)

Shunсам запрос не пуст. Пуста переменная sqltext ..
Т.е. не сработала команда ?!
Тогда пропустите эту процедуру через дебаггер и посмотрите где, что и как...