LCL, fix can't edit new record where key field value is NULL

git-svn-id: trunk@31361 -
This commit is contained in:
jesus 2011-06-24 18:02:02 +00:00
parent 48712541fc
commit 006639bf2a

View File

@ -347,11 +347,14 @@ begin
Exit;
end;
LinkGetBookMark;
try
try
if FListLink.DataSet.Locate(FKeyFieldNames,
FControlLink.DataSet.FieldValues[FDataFieldNames], []) then
Result := FListField.AsString
else Result:= '';
Result := FListField.AsString;
except
result := '';
end;
finally
LinkGotoBookMark;
end;