если ты о значении записи то можно так
Customer.SETRANGE("No.", "Customer No."); //Customer - таблица
IF NOT Customer.FIND('-') THEN
Customer.RESET;
CustomerList.SETRECORD(Customer); //CustomerList - форма
CustomerList.LOOKUPMODE := TRUE;
IF CustomerList.RUNMODAL = ACTION::LookupOK THEN BEGIN //открытие твоей формы
CustomerList.GETRECORD(Customer);
IF "Customer No." <> Customer."No." THEN BEGIN //Customer."No." - значение выбранное в открывшейся форме
......//.........
END;
END;
|