VPF::foxpro forms - Форум программистов

blackwitcher

Дата 11.1.2010, 18:39 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 11.1.2010

Репутация: нет
Всего: нет

В форме я должен выбрать товар, ввести количество, и эти данные заносятся в таблицу, НО товар не должен повторяться в таблице при добавлении количества. Товар тот же а количество - разное smile

Добавлено через 7 минут и 18 секунд
В форме я должен выбрать товар, ввести количество, и эти данные заносятся в таблицу, НО товар не должен повторяться в таблице при добавлении количества. Товар тот же а количество - разное

Данкинг

Дата 11.1.2010, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Цитата(blackwitcher @ 11.1.2010, 18:39

)

я должен

Долг - это, конечно, святое, только объясни более понятно, что требуется сделать. smile

Добавлено через 3 минуты и 52 секунды
А, дошло примерно. Значит, в таблице есть поля TOVAR и KOLVO, оба текстовые.
Общий пример:

Код


tov='картоха'
kol='10'
locate for tovar=tov
if found()&&если нашли товар, то прибавлям кол-во
 repl kolvo with allt(str(val(kolvo)+val(kol)))
else&&если не нашли, то добавляем новую строку
 appen blan
  repl kolvo with kol,tovar with tov
endif

--------------------

There's nothing left but silent epitaphs.

Cashey

Дата 12.1.2010, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

Цитата(Данкинг @ 11.1.2010, 21:18

)

Общий пример:

тока лучше поставить индексы и использовать SEEK.
и надо еще смотреть не задвоен ли товар ранее

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Данкинг

Дата 12.1.2010, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Цитата(Cashey @ 12.1.2010, 09:30

)

тока лучше поставить индексы и использовать SEEK.

По Seek поиск может быть неточным. Т.е. если в одном поле написано КАРТОХА КРАСНАЯ, а в другом - КАРТОХА, то не факт, что по запросу "КАРТОХА" найдётся именно вторая запись, а не первая. Могу, конечно, ошибаться, но я Seek'у не доверяю. Использую или Locate, или выборку запросом.

Добавлено через 3 минуты и 38 секунд

Цитата(Cashey @ 12.1.2010, 09:30

)

и надо еще смотреть не задвоен ли товар ранее

Так по умолчанию считаем, что таблица пустая и создаётся с помощью нашего кода. smile

Это сообщение отредактировал(а) Данкинг - 12.1.2010, 11:08

--------------------

There's nothing left but silent epitaphs.

Cashey

Дата 13.1.2010, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

Цитата(Данкинг @ 12.1.2010, 12:08

)

если нужен не точный поиск, то нужно искать по вхождению (ф-ция AT), но тогда нужно иметь ввиду, что вхождений может быть несколько, не только КАРТОХА КРАСНАЯ, но и КАРТОХА ЧЕРНАЯ. а это значит, что определить дубликата в этом случае будет не возможно.
а сам по себе SEEK работает надежно и значительно быстрее LOCATE.

Цитата(Данкинг @ 12.1.2010, 12:08

)

Так по умолчанию считаем, что таблица пустая и создаётся с помощью нашего кода

из вопроса это не очевидно

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Данкинг

Дата 13.1.2010, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Цитата(Cashey @ 13.1.2010, 12:26

)

если нужен не точный поиск, то нужно искать по вхождению (ф-ция AT),

А зачем AT? Можно же просто Locate for 'КАРТОХА'$tovar.

Но я вообще про точный поиск через SEEK. Например, таблица заполнена так:

Цитата

npp tovar
1       КАРТОХА КРАСНАЯ
2       КАРТОХА ГНИЛАЯ
3       КАРТОХА
4       КАРТОХА, ОТОБРАННАЯ У БАБУШКИ НА РЫНКЕ

Далее ищем:

Код


index on tovar to xxx
seek 'КАРТОХА'

И найти нужно именно точное совпадение, т.е. третью строчку. Будет ли SEEK искать именно точное совпадение?

--------------------

There's nothing left but silent epitaphs.

Cashey

Дата 13.1.2010, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

Цитата(Данкинг @ 13.1.2010, 13:38

)

index on tovar to xxxseek 'КАРТОХА

я имел ввиду ф-цию SEEK, а не команду

Цитата(Данкинг @ 13.1.2010, 13:38

)

И найти нужно именно точное совпадение, т.е. третью строчку. Будет ли SEEK искать именно точное совпадение?

от SET NEAR зависит

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Данкинг

Дата 13.1.2010, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Цитата(Cashey @ 13.1.2010, 15:24

)

от SET NEAR зависит

А какая зависимость? Вот справка фокса:

Цитата

ON
Positions the record pointer on the closest matching record if a record search using FIND or SEEK is unsuccessful. With this setting, RECNO( ) returns the record number of the closest matching record, FOUND( ) returns false (.F.), and EOF( ) returns false (.F.).
OFF
(Default) Positions the record pointer at the end of the table if a record search using FIND or SEEK is unsuccessful. With this setting, RECNO( ) returns the number of records in the table plus 1, FOUND( ) returns false (.F.), and EOF( ) returns true (.T.).

--------------------

There's nothing left but silent epitaphs.

Cashey

Дата 13.1.2010, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

ну и? надо перевести? )))))

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Данкинг

Дата 13.1.2010, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Дык, при ON указатель ставится на строку, значение искомой ячейки которой - ближайшее. При OFF - ставится в конец таблицы. При чём тут поиск точного/неточного совпадения? smile

--------------------

There's nothing left but silent epitaphs.

Cashey

Дата 13.1.2010, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

при работе FIND или SEEK курсор позиционируется на запись или по приближенному значению или при полном совпадении

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Данкинг

Дата 13.1.2010, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Т.е. при Set near on будет искаться по неполному совпадению?

--------------------

There's nothing left but silent epitaphs.

Cashey

Дата 14.1.2010, 09:21 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

Цитата(Данкинг @ 14.1.2010, 00:51

)

Т.е. при Set near on будет искаться по неполному совпадению?

да

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Данкинг

Дата 14.1.2010, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Понятно, учту при случае. smile

Это сообщение отредактировал(а) Данкинг - 14.1.2010, 14:52

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »