Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Foxpro/Clipper/Dbase > Работа с таблицей

Автор: Aden1985 12.9.2011, 19:41

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

Автор: Данкинг 12.9.2011, 21:47

Код


repl kod_prib with allt(str(now_kod))

что ли?

Автор: Aden1985 13.9.2011, 00:04

Процедура 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

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

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

)

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

REPLACE.