![]() |
#16 |
Участник
|
Загонять в блоб, код размещается в событие контрола
Код: IF FieldName.IMPORT('', TRUE) = '' THEN EXIT; IF FieldName.HASVALUE THEN IF NOT CONFIRM(Text001, TRUE, FIELDCAPTION(FieldName)) THEN EXIT; CurrForm.SAVERECORD; Код: IF COPYSTR(Path, STRLEN(Path), 1) <> '\' THEN Path := Path + '\'; FileName:='FileName'; TableName.CALCFIELDS(FieldName); IF (TableName.FieldName.HASVALUE) AND (STRLEN(Path)>0) THEN BEGIN PathFileName:=TableName.FieldName.EXPORT(Path+FileName); |
|