Ученик-кочегар
Группа: Участник
Сообщений: 7
|
IB7.1, fibplus Есть две формы на первой
MaintechForm
AnsiString sernum;
вызов обработчика ( Before scroll)
sernum=DepDSet->FieldValues("SERNUM");
KlassForm
extern sernum;
вызов обработчика (ONKEYDOWN)
if ( key==VK_SPACE)
DetForm->DetDSet->FieldValues("SERNUM")=sernum;
Данный код работает криво. В первой форме при WatchList переменную sernum может показать как int 67859403 ( чтото типа этого), а может AnsiString {Data, "UGB23415")( это то что нужно) , во второй тоже могут быть оба варианта в зависимости от значения в первой форме( по WatchList), но в базу в любом случае пишется типа 6789403.
Как исправить код?
Отредактировано woltermin — 04.12.2006, 17:54 |
