procedure Tfm_dekwf.Table2clbhChange(Sender: TField);
var
findresultboolean:boolean;
clmcv,dwv:string;
djv,cllbv:double;
begin
if DBGrid2.selectedField.fullName = 'clbh' then
begin
findresultboolean:=table3.findkey([table2clbh]);
if findresultboolean then
begin
table2.edit;
clmcv:=table3clmc.Value;
table2clmc.value:=clmcv;
dwv:=table3dw.value;
table2dw.value:=dwv;
djv:=table3dj.value;
table2dj.value:=djv;
cllbv:=table3cllb.value;
table2cllb.value:=cllbv;
table2.post;
end;
end;
table2.edit;
end;