Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сравнение двух таблиц / 4 сообщений из 4, страница 1 из 1
13.09.2010, 10:43
    #36842980
Kamely
Kamely
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнение двух таблиц
Добрый день! Подскажите пожалуйста в чем ошибка.
Имееться две таблицы с одинаковым индексированным полем. Необходимо сравнить таблицы по этому полю и в первой таблицы удалить те строки, которых нет во второй. Поля имеют символьный тип. Я пишу следующее
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
SELECT prim_nd
SET ORDER to OBOZNACH   && OBOZNACH
SELECT nd_hakb
SET ORDER to OBOZNACH 
do while !eof('prim_nd')
   If IndexSeek('oboznach', "nd_hakb", 'oboznach')=.f.
      DELETE IN prim_nd
      endif
   skip in prim_nd
enddo

Выдает ошибку Function argument value,type,or count is invalid
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2010, 10:50
    #36843002
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнение двух таблиц
Хэлп читал про IndexSeek?

IndexSeek('oboznach', .F. , "nd_hakb", 'oboznach')
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2010, 10:56
    #36843020
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнение двух таблиц
еще один косяк с первым параметром - кавычки не надо.
потом скан не по той таблице.

Вобщем весь твой код можно заменить на это:
Код: plaintext
delete from prim_nd where !IndexSeek(prim_nd.oboznach, .F., 'nd_hakb', 'oboznach')
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2010, 11:03
    #36843042
Kamely
Kamely
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнение двух таблиц
Dima T, спасибо большое за помощь, все получилось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сравнение двух таблиц / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]