Здравствуйте. Помогите пожалуйста с кодом. Суть в том, чтоб в форме, в поле 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

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

IgorNG,

Select t.kodtovara,t.naimtovara,t.texxarakter,t.opisanie,p.partiya,p.kolvo,p.stoimzak,p.stoimpokup,p.nalichie ;
сейчас ругается на naimtovara is not found.странно

IgorNG,

lnKodtovara=thisform.text1.Value
lcNailtovara=SUBSTR(ALLTRIM(thisform.text2.value),2,3)
Select t.kodtovara,t.naimtovara,t.texxarakter,t.opisanie,p.partiya,p.kolvo,p.stoimzak,p.stoimpokup,p.nalichie ;
FROM товары t INNER JOIN поставки p ON t.kodtovara = p.kodtovara ;
WHERE p.kodtovara=lnKodtovara AND SUBSTR(ALLTRIM(товары.naimtovara),2,3) == lcNailtovara ;
INTO TABLE poisktovara
DO FORM поисктовара

поменял на
lnKodtovara=thisform.text1.Value
lcNaimtovara=SUBSTR(ALLTRIM(thisform.text2.value),2,3)
Select t.kodtovara,t.naimtovara,t.texxarakter,t.opisanie,p.partiya,p.kolvo,p.stoimzak,p.stoimpokup,p.nalichie ;
FROM товары t INNER JOIN поставки p ON t.kodtovara = p.kodtovara ;
WHERE p.kodtovara=lnKodtovara AND SUBSTR(ALLTRIM(товары.naimtovara),2,3) == lcNaimtovara ;
INTO TABLE poisktovara
DO FORM поисктовара

и стало выпадать как раз это окно

код всё равно не работает.когда выбираю text1(числовой поиск) выпадает окно не найден kodtovara а когда text2 (символы) табличка с ошибкой

IgorNG,

по первой ошибке

IgorNG,

да вот самое странное что оно там присутствует

удалил таблицу poisktovara заменил table на cursor и блин опять ошибка. Она у меня уже раз была, пришлось программу закрывать в диспетчере задач

если я удалю таблицу poisktovara тогда получается форма поиск товара будет сама по себе? У меня была создана форма поисктовара на базе таблицы poisktovara

IgorNGlongfastудалил таблицу poisktovara заменил table на cursor и блин опять ошибка. Она у меня уже раз была, пришлось программу закрывать в диспетчере задач

А что у тебя в DE.Curs1 ?

постесняюсь спросить, а это что?

IgorNG,

удалил из DE. теперь ругается на отсутствие поля naimtovara :-(((

IgorNG,

ругается в форме. когда я ввожу в text1 цифру, либо в text2 название товара и нажимаю кнопку поиск, выпадает окно

IgorNGlongfast,

А зачем у тебя эти два текстовых поля привязаны к таблице?
если вы имеете ввиду это t.kodtovara = p.kodtovara то это связь между таблицами.

IgorNGВ первой строке кнопки поиска напиши:

SELECT Товары
BROWSE

добавил в начало кода и

IgorNGlongfast,

А сообщение-то какое?
Что таблицы нет?
Или открывает окно проводника, чтобы указать где расположена таблица?
Таблица была открыта до этого?

собщение

longfast,

таблица есть товара и поставки. не одна таблица до этого не была открыта. если нажимаю ignore то выводит окошко с выбором моих таблиц.

IgorNGlongfast,

Ну так укажи путь к ней или предварительно открой.
указать путь к таблице товары?

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