VPF::Работа с таблицей - Форум программистов

Aden1985

Дата 12.9.2011, 19:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте. Помогите разобраться. Есть таблица с полями kod_prib(type=character) и now_kod(type=numeric). Как при записи поля now_kod, записывать поле kod_prib? now_kod=kod_prib.

Данкинг

Дата 12.9.2011, 21:47 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Код


repl kod_prib with allt(str(now_kod))

что ли?

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

There's nothing left but silent epitaphs.

Aden1985

Дата 13.9.2011, 00:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Процедура init:

Код


lparameters tcMode

if upper(evl(tcMode, "")) = "NEW"
    this.txtkod_prib.value = 0
    this.lNew = .t.
else
    this.txtkod_prib.value = spr_prib.now_kod
     
endif

Процедура Save:

Код


local llOk
do case
    case empty(this.txtmarka.value)
        =MESSAGEBOX("Введите марку счетчика" );
        this.txtmarka.setfocus()
            
    otherwise
        if thisform.lNew
            insert into spr_prib ;
                (now_kod) ;
                values ;
                (this.txtkod_prib.value)
        else
            replace next 1 in spr_prib ;
            now_kod with this.txtkod_prib.value,;
                
        endif
        llOk = .t.
endcase
return llOk

А что значит "repl" ?

Данкинг

Дата 13.9.2011, 00:21 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Процедуры - это всё здорово, но вопрос-то в чём?

Цитата(Aden1985 @ 13.9.2011, 01:04

)

А что значит "repl" ?

REPLACE.

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

There's nothing left but silent epitaphs.

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