Первичный ключь должен быть уникальный. У у тебя два пустых ключа.
Кстати уникальность распостраняется и на удаленые записи

>таблица пуста, первую запись дает сделать, а на второй он выдает
А у второй записи какое значение key_kus? И чем она отличается от первой?

Назначание поля PRIMARY KEY еще не делает автоматическое присвоение уникального ключа - это ваша забота.
Если все равно делай поле автоинкрементным

_mirror BurnНазначание поля PRIMARY KEY еще не делает автоматическое присвоение уникального ключа - это ваша забота.
Если все равно делай поле автоинкрементным

я не веду счетчик ключа, должен?
А кто должен? Бил Гейтс?
Необязательно счетчик. Главное уникальность.

как сделать, чтобы программа вела?
Написать свой код - вопрос генерации уникальных ключей обсуждался не раз. Или использовать поле с автоувеличением

как сделать автоинкрементным

Из Хелпа:
CREATE TABLE | DBF TableName1 [NAME LongTableName] [FREE]
[CODEPAGE = nCodePage]
( FieldName1 FieldType [( nFieldWidth [, nPrecision] )] [NULL | NOT NULL]
[CHECK lExpression1 [ERROR cMessageText1]]
[AUTOINC [NEXTVALUE NextValue [STEP StepValue]]] [DEFAULT eExpression1]
[PRIMARY KEY | UNIQUE [COLLATE cCollateSequence]]
[REFERENCES TableName2 [TAG TagName1]] [NOCPTRANS]
[, FieldName2 ... ]
[, PRIMARY KEY eExpression2 TAG TagName2 |, UNIQUE eExpression3 TAG TagName3
[COLLATE cCollateSequence]]
[, FOREIGN KEY eExpression4 TAG TagName4 [NODUP]
[COLLATE cCollateSequence]
REFERENCES TableName3 [TAG TagName5]] [, CHECK lExpression2 [ERROR cMessageText2]] )
| FROM ARRAY ArrayName

Еще из Хелпа

Вы можете определять значения автоинкрементного поля Таблицы из Базы Данных или Сволбодной таблицы для поля с типом Integer.

Примечание
Рассматриваемые Автоинкрементные поля не поддерживаются для локальных, удаленных Представлений, а также представлений типа OffLine. При активации автоинкрементных полей, они приобретают характеристику Read-Only, и не могут быть изменены с помощью Операций Insert, Update, Replace, их значения устанавливаются автоматически. Дополнительную информацию смотрите в разделк: Значения Автоинкрементных Полей в Таблицах.


Для установки Автоинкрементной характеристики Поля в Таблице:
Откройте Таблицу в соответствующем Дизайнере (Table Designer).

В соответствующей закладке Fields, выберите требуемое Поле.

В комбинированном Списке Type, установите тип Поля: Integer (AutoInc).

В соответствующей области Дизайнера AutoIncrement, введите начальное значение Автоинкрементного Поля Next Value, а также определите величину Приращения в области Step.

После выполнения всех действий нажмите кнопку OK.

Примечание
Когда вы выбираете указанный тип Поля = Integer (AutoInc), то соответствующий текстовый бокс Default становится недоступным пользователю. Тем не менее, система Visual FoxPro не отвергает имеющееся значение, и не использует его (значение "По-Умолчанию"). Описанный текстовый бокс становиться доступным для редактирования при условии, если вы измените описанный тип поля = Integer (AutoInc). Для определения значения "По-Умолчанию" для данного Поля вы можете определить с помощью соответствующей функции DBGETPROP( ). Если вы намерены использовать значение характеристики Default, вам нужно изменить установленный тип Поля = Integer (AutoInc).


Дополнительную информацию смотрите в разделе: Закладка Fields, Дизайнер Таблиц.

Для установки Автоинкрементной характеристики Поля программным способом:
При создании требуемой Таблицы при помощи команды SQL CREATE TABLE, используйте соответствующую секцию AUTOINC указанной Команды.

-ИЛИ-

Для изменения характеристик Поля существующей Таблицы, сначала откройте таблицу с помощью команды USE, затем используйте команду SQL ALTER TABLE, в которой для требуемого поля используйте секцию (опцию) AUTOINC.

Дополнительную информацию смотрите в разделах: CREATE TABLE - SQL, команда или ALTER TABLE - SQL, команда.