Здравствуйте. Помогите пожалуйста с кодом. Суть в том, чтоб в форме, в поле text1 пользователь писал код товара(поле типа integer) и в таблице

программа искала этот товар и копировал записи в другую таблице (poisktovara). буквы ищет(charater), а цифры(integer) выдает ошибку.вот код

кнопки.Помогите пожалуйства.уже месяц мучаюсь

DELETE FROM poisktovara
insert into poisktovara (kodtovara,naimtovara,texxarakter,opisanie,partiya,kolvo,stoimzak,stoimpokup,nalichie) Select

товары.kodtovara,товары.naimtovara,товары.texxarakter,товары.opisanie,поставки.partiya,поставки.kolvo,поставки.stoimzak,поставки.stoimpokup,поста

вки.nalichie FROM товары,поставки WHERE товары.kodtovara = поставки.kodtovara and SUBSTR(ALLTRIM(товары.naimtovara),2,3) like SUBSTR(ALLTRIM

(thisform.text2.value),2,3) AND [поставки.kodtovara]=(thisform.text1.Value)
DO FORM поисктовара



обычно выдает ошибку operator operand type mismatch. типы поля всех 3 таблиц идиентичны

Dag,
ничего не происхит.после 3 нажатия выпадает окно alias 'поставки' is not found

мне кажется, что не работает копирование в другую таблицу

AndreTM,Код к сожалению не работает. я доработал свой код и всё заработало.но к сожалению не так как надо. Корректно ищет лишь только по названию товара. а по коду товара находит аж 40 записей(хотя у меня их всего 16).Это из за or. если ставлю and то ищет норм но только когда выбирает одновременно из 2 полей (text1 и text2). Вот как теперь сделать так чтоб выбирало только из одного поля(т.е из поля text1 или text2 или одновременно из обоих)?

SET DELETED ON
DELETE FROM poisktovara
insert into poisktovara(pole1,pole2,texxarakter,opisanie,partiya,stoimzak,stoimpokup,kolvo,nalichie) Select товары.kodtovara,товары.naimtovara,товары.texxarakter,товары.opisanie,поставки.partiya,поставки.kolvo,поставки.stoimzak,поставки.stoimpokup,поставки.nalichie FROM товары,поставки WHERE товары.kodtovara = поставки.kodtovara AND SUBSTR(ALLTRIM(товары.naimtovara),2,3) like SUBSTR(ALLTRIM(thisform.text2.value),2,3) or поставки.kodtovara=(thisform.text1.Value)

AndreTM,
Версия foxpro 9.0
код не работает в самой первой строчке lnKodtovara=val(thisform.text1.Value) выдает ошибку function argument value,type,or count is invalid
delete from я использую для очистки таблицы. Весь смысл моего кода заключается в том, что я использую оператор insert select, т.е из запроса (select) я выбираю данные, которые совпадают(=) с значением поля text1 для цифр, и like (типа = для букв) для charater.
и у меня получается данные, которые я нахожу с помощью select копируются в таблицу poisktovara и выводятся в форме.при следующем нажатии на кнопку поиск таблица poisktovara очищается (delete from) и туда записывается новые значения select.

IgorNG
А вместо lnKodtovara=val(thisform.text1.Value)
lnKodtovara=thisform.text1.Value не пробовал?
попробовал, выдает ошибку в строке select и ошибка

Jonny540longfast Вот как теперь сделать так чтоб выбирало только из одного поля(т.е из поля text1 или text2 или одновременно из обоих)?Чем это определяется? Если наличием/отсутствием данных в одном из полей,то проще подготовить заранее
строку "условие" - и вперед! Типа:


* остальные условия допилите сами, ну и в SELECT:



До конца не понял задачи, но сделал так

SET DELETED ON
DELETE FROM poisktovara
lcStroka=""
lcV1=Thisform.text1.Value
lcV2=allt(Thisform.text2.Value)
do case
case !Empty(lcV1) and Empty(lcV2)
lcStroka= "поставки.kodtovara=lcV1"
case Empty(lcV1) and !Empty(lcV2)
lcV1=Thisform.text1.Value
case !Empty(lcV1) and !Empty(lcV2)
lcV2=allt(Thisform.text2.Value)
otherwise
messagebox("Идите в баню!")
endcase
insert into poisktovara(pole1,pole2,texxarakter,opisanie,partiya,stoimzak,stoimpokup,kolvo,nalichie) Select товары.kodtovara,товары.naimtovara,товары.texxarakter,товары.opisanie,поставки.partiya,поставки.kolvo,поставки.stoimzak,поставки.stoimpokup,поставки.nalichie FROM товары,поставки WHERE &cStroka

и выдает sintax error

AndreTM longfast,

Ну да, попробуйте без VAL() в первой строке.
Ну и сравнение по имени сделайте именно так, как вы планируете: если строго 3 символа - то ==, если 3 символа из таблицы с 0-3 символами поля - то = или LIKE.
И DELETE ALL + INSERT <=> SELECT INTO TABLE, и удаленных записей не остается...

Ну и неплохо бы было завести отдельное поле КодТовара, поскольку в вашей структуре kodtovara - это ключ, поле связи, и пользователь, по идее, вообще не должен не должен оперировать его значениями.

Кстати, по структуре таблиц: в ТОВАРЫ для того, чтобы оперировать длинными строками, лучше использовать поля типа Memo, а не Character с максимальным размером; в ПОСТАВКИ для числовых данных (партии-суммы-количества) лучше использовать Numeric или Currency...

kodtovara из таблицы товары у меня является связью с поставками в database designer.Насчет типов полей поменяю. а насчет
AndreTMНу да, попробуйте без VAL() в первой строке.
Ну и сравнение по имени сделайте именно так, как вы планируете: если строго 3 символа - то ==, если 3 символа из таблицы с 0-3 символами поля - то = или LIKE.
И DELETE ALL + INSERT <=> SELECT INTO TABLE, и удаленных записей не остается...
не особо понятно что надо сделать

IgorNG,у меня это прописано в свойствах поля text 1, в разделе data-value.Или ещё стоит прописать и init?

IgorNGlongfast,

WHERE (cStroka)
А почему cstroka? у нас же clstroka

ой lcstroks

lcstroka

хехеех. последняя запись. lcSrtoka.
IgorNG
А вместо lnKodtovara=val(thisform.text1.Value)
lnKodtovara=thisform.text1.Value не пробовал?

попробовал, выдает ошибку в строке select и ошибка

К сообщению приложен файл. Размер - 31Kb

вы не знаете почему выдается это окно?